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GRAPHX MANUSCRIPTS 



All' manuscripts for the GRAPHX system are herein reproduced. 
; Included, ares:' ,: 

.1.; !■' The GRAPHX program manuscript with upper case 
type font (0) . 

2. The lower case type font (1) . 

3. The upper case Greek font (2). 

4. The lower case Greek font (3) 

5 i ■ The EXIT, program FREQUANA. 

;6. The EXIT program HIST03D. 



'■MONOGRAPH 115 ADDENDA 

■USEFUL INFORMATION FOR MODIFYING . GRAPHX : 

How the interpreter works . 

The standard return from any command and the initial entry is to the 
manuscript line scanner #6F location 275. Return to 6F-1 resets the argu- 
ment index and to 6F-2 resets both special argument and argumait indices. 
: , , The line sca.nner distinguishes arguments from commands.. Arguments . , 
are read, converted, and stored in the argument table at //6G, #6C, #40 . 
respectively. Commands are read, (#6H) compared (#6 A) with a command 
table (#8F) and executed through the jump table (52! and following). ■ 
Each of the commands are executed by a subroutine (9 tags) which is an 
i independent package except for CARRIAGE RETURN which is linked with the 
PRINT command. Thus, any command can be rewritten to do a special task 
if you don ' t need that command. 

Available space 

Locations ■1735-1753 presently available. Quarters 4 and 5; could be 
overlaid (see CYCLER. Subroutines) when not printing if a dummy PRINT "p,,; 
is executed prior to printing to restore. a type font. 

■ Absolute locations 

■ The last line of the argument table location 1777. ■ 
The; EXIT recovery subroutine location 375. "v, 



2. 



.Argument, and data communication between GRAPHX and a user EXIT_ program 

. • The special argument .table (20 locations) may be filled using the 
TRANSFER command. The arguments will be stored in 1704-1727. (Block 

..No. 273 unit 1, locations 304-327 after the EXIT) . It requires one 
argument to EXW but the remainder of the argument table; (19 locations) 
can be filled with arguments for transfer to the EXIT_ program by typing 

■in the additional arguments prior to the EXIT command. After EXIT, 
Block 273, unit one, location 354 will contain the block number to which 
you exited and locations 355 to 377 the 19 additional' arguments. The dati 
area currently with GRAPHX will be in core in quarter 6 if your EXIT^ . . 
program does not overlay it and on tape block 276 unit 1. On returning 
to GRAPHX the contents of block 276 will be in quarter 6. 

Interpreting typefont codes ; 








directions 



Bit patterns 
' not used .' 



s/ 



motion multiplier 



11 10 9 8 7 6 5 4 
motion, direction 
•stop if a one ■ 
change pen up or down if a one 



3. 



Examples 

e.g. 4705 : change pen, move 5 in the 7 direction and continue 

2001 - move 1 in the zero direction and stop 

6307' change pen move 7 in the 3 direction and stop ^ 

To add your own type fonts the two block combinations 250-251, 252-253, etc... 
.266-267 on unit one 'are assigned font numbers 0-7. To create Font 4, the next 
font space presently available, place your font codes in blocks 260-261. 

The CYCLER Subroutine .. . '/ ^''■: ■ '■■'"/, 

The CYCLER Subroutine (#60) is used by GRAPHX to keep quarters 6 and > 
7 current. It normally loads from tape imit 1 but a JMP6X changes it to . 
unit zero loading and a JMP6W restores it to unit 1 operation. Enter the .; 
subroutine by a JMP60 followed. by the argument N MMM. The subroutine will 
load Block MMMinto quarter N if MMM is zero the subroutine will load the ., 
block following the last block it loaded into the quarter specified. The ' 
argument following the JMP60 . will be changed' to the old quarter block 
number. The memory table for the cycler is located at #8R. .The cycler. ., 
can be used to load any quarter except quarters and 1. 

Loading GRAPHX : from another binary program 

■ The manuscript to be exetuted should be placed in block 350 and 
following,: unit 1. GRAPHX can bemodified for. self starting by placing ,',\ 
■a JMP 16 in location 1. In location 16 and 17 place SETil. 

■■■ ■:. ■.,.„•■:■•:'■'■..;■:-;.■ .•■■■■.■:;.;;■■■„.■■..• ':. :;'-■. .'^'Oooo -.■.'.■■-■:■■.,.■■:.: -^■' ■- ■■• 



A:- 



Index regis ter chart . 





1 
2 



a 



DO. . 
.LOOP.. 
.Table 
Pointers 



.subroutine returns 

contains the current number of uncompleted DOs 

points to current position in special argument table 

points to current data position in quarter 6 

points to location containing the DO loop count (-1 during first 
loop, -2 during 2nd loop, etc.) 



J ' ' ' 

<5 points to location containing the contents of 13 after the DO ' 



points to location containing the cyler argument for recovering 
\^ manuscript block 

.: ?'■ .:,■■. open ';.■;■■■■.■,, ; , .-, ' ■■ 

10 cycler map pointer 

11 scratch table index pointer 
12. . 'opien.:'; 

13 points to manuscript reader position in quarter 7/ . ^ 

14 points to current position in argument table 

15 used in motion, command execution, character plot, and data choice 
■, subroutines' ■,', 

16 used in motion, pen, sjnnbolic argument, character plot and thaw 

■.'■/:'■ pen .subroutines ■■. '•''•.:.:/■.';'■"■'■':'■■■ 



17 used,:in motion, cycler, .and character plpt; subroutines 



V/>LUK LliX'K 


VALUt: 


LINK .v 


■ VALUK 


LiNF. :■■ 


:... VALUE 


Lih'i'-' : 


1 A 2 d 4 5 2 b 1 7 


3H oyo2 ■: 


\-2.4i:\-^ 


;; 6V 07 47 : 


107i: :: 


: 9:1 


1733 


2 175 


lb y2bb 2b3U 


31 0223- 


:-'262.'-^ 


;:^;6W 0707 


102 4; 


■:9J ■ 


1 ] 40,. 


1310 


IC 227 1 2 54b 


3 J 07 64 ; 


1 111:; 


;.'6;X ,0703 


i017.;:- 


:9k: 


::ri 76;. 


•i'35? ■.::/:-\ 


1 b 23U4 2 56 1 


3K '1035 


11 7.2 V 


■:6Y. 0733 , 


10 52:' 


: '^L 


: 15.41 


■1756 


IE 2313 2 57 1 


3L 10 46-' 


120 4.^'^; 


:,:■ 6Z,:07 52 


107 5:, ' 


v:"9M- 


::iS63 


;200 4 ■ 


Ic" 2323 2602 . 


3M 002 5 ; 


■■■■ 27^■.• 


:7A;i704: 


2 145':: 


':9b>- 


1533. 


1 7-^17 ■ ■ 


16 2331 261 1 


3N 01 14. 


. 14■5,■•• 


v7B 1 152 


132 4:;v' 


,90: 


1547 


■:i765 . v. 


IH 23-^6 2627 


30 01 15 


;■■■^■47,■^:. 


i-:7C \ 1000 


i 135:. 


■ '9H". 


i3 50 


■IS-^l- , • 


1 I 2356 26A0 


3K 10 52i:: 


il2;lQ,:::', 


: TW 0242 ■■ 


:: 302;..! 


■; 90/ 


1 4.5b' 


^165.1 , 


IJ 2366 2651 


3S 01 13. 


;::r43'-:"- 


w^fLl'^l r73," 


1346:::V 


:■: 9R- 


;l:52b' 


: 1730 ;;;■•. 


IK 2377 2663 


3T 2000" 


33 lo;;;^ 


■ 7F ;i476^ 


167 5^ V 


: 9S' 


1522 


-:L733 . ■ ■ 


IL 2405 2672 


3U 1007; 


;! 144;'; 


"76 1231 : 


1406 :' 


• 9T 


: 152A 


■.•1736.'';''' 


IM 2411 2677 


3X 0367 


■ 442.'':v 


■■ 7H 131 1 ' 


:1 477 :': 


''•9U 


11 15; 


',1264 ■■,',:, ■■■■■■■■■. 


1 i\ 2416 2705 


3Y 0370.': 


443 ::■ 


, 71 odsi: 


: . 22 'v;,: 


9V 


1513 


1:722 .v . 


10 2^27 27 17 


3'^ 101.4 


■1 i:'5'i-..'.'" 


■■7K.:1335.; 


1524 :: 


V. ;9;W . 


06 57 




li- 2434 2725 


4 A 26 57.' 


3^D4;c 


'■•jL:^;ia47 ■ 


:i537.:: 






1 Lv 2444 2736 
IK 2460 27b3 • 


4B 266:5 ; 
4C 2701 


;32'l3^:' 
3230 ; ■ 


S7M. P116• 
■ ,:7N .0371 . 


:.'':i55;5 
■ 444' ': 






lb 2^7 1 y765 


4D 27 07;, 


'3237 V' 


V70 077 4 


1 122 






^0:.^' 


IT 2 507 3004 ', 


'4E 27 12 : 


,32'43.-'.-,: 


ilR ,02AT: 


307 ;:■ 






■ t 


lU 2515 3013 


4F 27 13' 


i3245 ■': 


^■■'■i.s :b2:63'- 


li3S4'-X 








IV 2 523 3022 


4G-27 14:; 


.:32:47.,^r 


, :i7T -0ltf6;: 


■'■■'•136-V 






•■ ■'.>,. ■ ^ 


1 W 2 532 3032 • 


4H "?7 15' 


■:325 1:0 


■0U:O23'A'' 


■ ■' f 1 








lA 254 1 3042' 


41 2723" 


■-326 b-'- 


y'lMr-ltir^ 


1323:^^ 








lY 2552 3054 


4 J 27 31^: 


3267-f: 


v:.:7,X :1534' 


V175OV. 








W. 2563 3066 


4K 27 32 


32 7 i;: 


^. 7Y 1,457 ■ 


:1660-V 








2A 2100 2337 


4L 27^6 


3306 .; 


:>:8A;:r6D5 


2034 .: 








2b 2 1 12 2352 


4W 06 3-5 


'■■'1'A6k' 


• ■'SB :0632 


:^74i.';- 








20 2120 2361 


40 03 53, 


■'■.4g-5 '.;, 


■;:.8G;,0347:' 


>-A20^ 








2b 2130 2372 


Af 106 4 


1227 ?• 


\::8D;0.417 


:;^51■0■^:■ 








'dK 2145 2410 


4tJ 1071 


1235- ; 


8E 1672 


;2131 








2K 2 153 2417 . 


4H 107 3 


•1240 : 


: 8F 047 1:. 


567,- 








26 2167 2434 


4S 42 50 


3314 :' 


'■^ 86. 1730 


2 172; 








2H 2203 2451 


4T 62 71 


3317 - 


•,8H 0421V 


512;,/. 








2 1 22 12 a 46 1 


4U 7350 


3321 :'; 


.•; SI.^1754 


2201:' 








2J 2234 2504 


4V 72 70; 


3323: ;■ 


:;: 8J: 067 b: 


■ 1003;;: 








2K 2572 3076 


4W 11 00 


1246 ; 


:' 8K:-]66 5 


2123.V; 








2L 2 57 3 3100 


4Y 066.6 


1001 ■ 


■•:'8L .1531 


'l7 44': 








2K 2 574 3102 


AZ 1554 


:i77 4 , 


.;8M 1572 


2014: 








2N 2 57 5 3104 


6A 0446 


■;\:54.i, ,■ 


K; BN J36 5. 


15 57 ■ 








20 2576 3106 


6B 0363? 


■■V.:436':f-. 


-■;g0 1662 


21 16: 








21" 2577 31 10 


6C o^bo;; 


;'.;^70';':- 


yi8P ;::1512■• 


■1-7 20;. 








2tJ 2603 31 15 


6D 0372 


.-■446 ; 


: ■80 1372 


.156 5,: 








2k 26 1 1 3124 


6E 0432 


523,; 


V 8R::07 55 


1 101 .; 








2b 2613 3127 


6F 0275. 


■ . 34r.V 


■ 8S. 061 1 


, 7 16H 








2T 2 62 4 3141 


66 0337 


^■.■''4.1-b::: 


■-: 8:T: DQ30 


:'i3i2: 








2U 2625 3143 


6H 032,0' 


/:,;-366-,: 


..: 8V ,0271 


.." 333:;: 








2V 2626 3 145 


61 0332 


Qao2:'^- 


-r:8w':b74:4: 


;ro65::- 








2V. 2627 3147 


6J 0720 


.lb37'V' 


%8X 1,426 


■1 625 ■; 








2a 2643 3165 


6K 445 


/ 537- 7: 


'•■ BY ^1440 


: 16 40-: 








2Y 2650 3173 


■ 6L 0737 


•1057 '■ 


^ -SZ 1677 


2 137 








2^: ti6:>l 3175 


6M 441- 


l'-..533:' 


/:;:9A .157,1 


2013- 








3A 0713 1031 


6N 1623 


2053^-^ 


U 9B 1604 


.2 03 3V 








3b 0136 175 


60 0565 


%. 6:7;i;-/ 


■■> 90 ,1642 


2073:; 








3 151 2 10 


6f 0627 


:?:.:'7 3.5'S 


Vi:;9D::i424 


1623 ■ 








3b 0170 227 


6tJ 0621: 


:'■;■. :^:7s 7., •;■ 


'0: 9 E:. 1436 


163.6: 








3b 160 2 17 


6K 0550 


V'6;5o •; 


•:^.:9F..1:6 54 


:'2 106\ 








3I< 0^07 246 


6T 1400 


1576 ; 


V 96 1 6.57^ 


.21 18: 








36 02 16 2 55 


6U 0743 


:-:i:0.6 4<; 


;.v-[s>HUlb55, 


.:' 12:16' 










I LN=1 










p CONT 


• 


':''v.''-^'/'-y 


1 A ^M*^ .^^ 




CGKAPHA CALCOMP CONTROL SYSTKM] 


'.A ^''l'- .•■'■■'"■''■ ■■■''':■ 


1 0000 


0000 T/»op ^y 


■ ,.:.-'\ii-\^"''-'r, 


^^^^ 


' 


C INITIALIZE TABLE INDICES] 








B4 ' , ' 


/;:;;;•';. ^ ;.■';■;. ^;V' 


, 


4 1664- 


8K-1 


'. ■ ■' ' '■ . '[ ',' 




5 1671 


&E-1 






6 1676 


&Z-1 
al3 






13 7/i01 


7401 

E320 


'■■■: •■''■"'■'■'■■■'■'■ 




20 e>'dl\ 


JMi-8V [START MANUSCRIPT INTERPRETOR 






[INCREMENT SR3 








[REt^EATEDLY CALLED BY MOTION SR] 








LTO IMPLEMENT A SINGLE X,Y MOTION] 








[FROM MOTION TABLE 3J] 


• 


' 




[MOTION CODE IN ACC ON ENTRY] - , 




' 


2 1 4025 


C/7I STC3M 


. , .' ' •■ ' 


(- ' - 1 * • — 


22 2U00 


ADDO 






23 4113 


STC3S 






24 1520 


SROi [TEST -Y 
[CARRIAGE RIGHT] 


n ' 


Prt/*^ i/^ 


2b 0000 


#3M LKEY WORD 


"\ 


10 - 


P(/M/'V) 


26 6044 


JMf^P+ 16 —■ " ' ■ 




27 3457 


AUU7Y \ 
[TESTING FOR POINTS] ' 


il -- 






[LESS THAN OR EQUAL] 






[TO LOUER BOUND] 


12. ^ 




30 2 114 


ADD3N ^ 1 


\h' 


pe»a ^f 


31 0451 


APO / 


32 6040 

33 001 1 


JMPP+6 1 
CLR 1 


IH-' 


O^M^n 




[TEST FOR POINTS] 










[GREATER THAN THE] 










[UPPER BOUND] 








34 3457 


ADD7Y 








35 2115 


ADD30 








36 0451 


ArO 1 






37 051 1 


Ol-Rll [CR— 1 






40 001 1 


CLR / 






41 3457 


ADD7Y 








[DECREASING POINT] 








42 3605 


ADD8A [-1 








43 5457 


STC7Y 








44 1 500 


SRO ^ 










[TESTING FOR +Y] 








[CARRIAGE LEFT] * 






45 0025 


3M 






46 6066 


JMPP+20 1 






47 3457 


ADD7Y 1 

[TESTING FOR I^OINTS] \ 
[GREATER THAN OR EQUAL] 1 
[TO UPPER BOUND] I 






50 2 115 


ADD30 / 






51 2632 


ADD8B [ + 1 ' 1 






52 0471 


APOi 









1, :-.lJSi = 22: 



p 


COM! 




21 


40 25 


#71 S 103X1 


2S 


2000 


ADDO ' 


23 


40 75 


STC3S 


2 A 


1520. 


SROi CrEST -V 
CCAKKIAGE HIGHIJ 


25' 


0000 


#3M ^ C.KEV WOKD 


26 


6035 


JMP3P 


27 


345 7 


ADD7y 


30 


3605 


ADD8A 


31 


47 4 


OVFi 


38 


2632 


ADD8B . 


33 


503 


0Pk3 


2A 


5457 


STC7Y 


35 


1500 


?.'3P SRO 

CIESTING FOR +Y] 
[CARRIAGE LEFT 3 


36 


0025 


3M, 


3 7 


6046 


JMP3Q 


40 


34 5 7 


AD07Y 


41 


2632 


ADD8B 


42 


0474 


OVFi 


43 


3605 


. ADD8A 


44 


0503 


0PR3 


45 


54 57 


S rC7Y 


46 


1 500 


#3Q SRO'. 
CTESTLMG FOR +X 


47 


0025 


3M 


50 


6057 


JMP3\/ 


51 


3534 


,ADD7X 


52 


2632 


ADD 8 8 


53 


0474 


OyFi 


54 


360 5 


ADD8A 


5,5 


'.,0 5,04 


.,'•■■■ ,.0HK4^:;;:: 


;56 


5534 


Sia7X ; 



Li\=7 1 



P CONT 
b3 606« 
b^^ UUl 1 



5h 3^157 
bS 2 114 
b7 2 63a 

60 0^71 

61 Ubl2 

62 001 1 

63 3/ib7 

64 S632 
6b b4b7 

66 1500 

67 0025 

70 6076 

71 0510 



72 
73 
'/A 
7b 
76 



1000 
1534 
2 6 32 
5534 
1 bOO 



77 0025 

100 6106 

101 0507 

102 1000 

103 1534 

104 3605 

105 5534 



1U6 
107 
1 10 
1 1 1 
1 12 
1 13 



1020 
0124 
3605 
450 
61 10 
0000 



114 1045 

1 15 6732 




1 16 00.76 

117; 7 76 7. 

: 120 007 5' 

121 7776 



JMl-'P + 7 

GLK 
LTEbTlNG FOR /^0INTS3 
[LESS THAN LOWEK BOUND] 

AUU7y 

ADD3N 

ADDBFJ [ + 1 

Ai^Oi 

0/-'H12 " 

CMOVE CARRIAGE LEFT3 

CLK 

AUU7Y 
C INCHEAbING POINT] 
■ADUBB [ + r 

S7C7Y 

SRO 
[TESTING FOR +;^>DRUM DOWND 

3M 

JMl-'P + 6 

OhRlO ^ 
[MOVING THE DRUiMD 
[DOWN] 

LDA 

7A 

ADU8B [+1 

STC7A 

SRO 
[TESTING FOR -X,DRUM UP] 

3M 

JM;^P + 6 

Oi"R7 ■ 

[MOVING DRUM U»-] 

LDA 

7A 

ADD8A [-1 

STC7X 
[l^LOT DELAY] 
*7T LDAi 

124 

ADD8A [-1 

AZE 

JMh'P-2 
//3b [RETURN ^ 

LLOWER Y-bOUND3 
ff3N 1045 

CUrrER Y BOUND] • 
//30 - 1045 ,.. ' 

[MOTION SUBROUTINE] '.\' _. '\ '■ \K-::r ?'[] Oj'-^'- • 

[SELECTS MOTION WORD AND CALLS- INGREMENT;^;SR^<3■^ 
L rROV I DES INTERJ-OLATED STRAI GHT 'L I n'e:] '- ;' l:' ''" 'v-;': 
[BETWEEN-PRESENT. HEN LOCATION; AND LOCATION] /■; 
.■LST0R;ED"^i:N>-3A ■A.Na":3Y];.:';, -■■■■. ■':S^'yf '...'■■■..' ^^'r'-' ;■.: ■:■;:-■ 

:*7M' SETil6: 
■•'■.■v.v-.l0-';'-'^-;:- 
■;:::: A SETi:-l;5^: 



1 



J 



py-.', 


\l:'^f>^ 


,*3V 


■SKQ ; . , . 




^.i'^ri . '•■ 


tTESr1:MG FOk -X 


60 


0025 




3M 


61 


6070 




JMP7T 


6 2' 


3534 




"A0D7X 


63 


3605 




ADD8A 


64 


0474 




DVFi 


65 


2632 , 




ADOS a 


66 


0504 




0PK4 


67 


5534 




SrG7X 






CPLOT DELAY] 


70 


10 20 


r'llT 


LDAi 


71 


0124 




184 ■ 


72 


3605 




ADD8A C-t 


73 


0450 




AZE 


74 


60 72 




JMPP-2 


75 


0000 


#3S 


Ci^ETUR.N) 






[RETUR.M TO LAP6 


76 


iq20 


. #9Z 


LDAi 


7 7 


0001 


' 


1 


100 


0014 




A IK 


101 


00 7 5 




SElil'S' 



2 LN=;li2 



p CO\'T 

102 0701 701 

103 0076 SETil6 

104 7300 ■ 7300 

105 6015 JMP15 
10 6 0000 

107 0000 ■ " . 

• C I'MITIAL'IZE • 
1 10 001 1 -ftS-t CLR 
1 1 1 4001 STCl 
'1 12 0503 0PR3 
1 13 0504' 0PH:4 

1 14 2632 ADORB CI 

115 0014 AIR ■ 

1 16 6271 JMP8V CSIARl ' 

C MO T 1 (n! S U BRO U F l^El 



3: v,L:N=r6i: 



•;:,'[>: COM 




iX[2it:'ioo'o 


LDA 


■Mi! 3 (JQUO 





\ l^A 50 52 


iJTC3H ser I 


: ■■ 1:2 5 2 3o7 


AUU3A 


■ v.! 26 .GUI 7 


COM 


:\::i,27:^3 5i4 


ADD7X 


,::;,::13U: 471 


APOi 


:kr3i ; 6135 


JM|-'P+4 


:^' 1,32 0076 


SETil6 


//I 33 ■7.773 


-4 


:. 134 0017 


COM 


r:: :i 35. .1 0.60 


bTAi 


• .136 0000 


*3B 0000 C IDELXi. 


■•'• r37 001 1 


CLH 


r. 140 ,2370 


AUD3Y 


,v- 1 4 1/ 001 7 


COM 


;:-142;:5457 


ADU7Y 


.,::i43..0:47:l 


AJ^Oi 


:V; 1:44 -6 ISO 


JMPP+4 


; .. 145:'0075 


bETilS 


,' 146 777.5 


-2 


: 147 'GO 17 


COM 


' 150.. 1060 


STAi 


i 1:51 ':oooo 


*3C 0000 C iDELYI; 


■;■:, 1.52' 007 7 


SETil7 


,V ■:153';377 7 


-4000 


^:' 154- loOO 


BSE 


;^:; 155 0136 


30 


V.V 156 470 


AZEi 


;;;'i':i:,57:7a52 


JMP3R ^^ 


■■-■.160'^4I70 


/S'SE bTC3D '^' 


;--161. ■2 136 


ADD3B 


V;;:,'! 62 0241 


, ROLl 


;,;';";163'':4136 


STC3B . 


:;"..M,64: 2 1.51 


' ADD3G 


";:'0:165:-:d241 


ROLl 


'-.■^ 1 6,6. -4 151 


STC3C 


■:;;j67,:,i:020 


LDAi 


■ 170.0000 


//3D 0000 [RESULT 


: -l?!; 02 41 


ROLl 


: ;; ,r72 ;045 1 


Ai-0 


,:;,:1,73-'6 177 


JMj^p + 4 


;:>174Vi:500 


SRO 


• 175 0017 


17 


•:-l76 :.6160 


JMP3E 


;■ ;li77^^001 1 


CLR 


:y26(j' A201 


S1C3F 


: :;,.;201 "4216 


STC3G 


vv262;-'odi:i 


#3H CLK 


;'; 203 2016 


ADD16 


;;;• ^3 04 4223 


STC3I 


■205 2136 


AUD3B 


^ 206 1220 


LAMi 


. '207 0000 


#3F • 


^:: :210 4000 


STCO 


;'.::21I 0472 


LZEi' 



vIPeXiT 



Jf /?/57 



■■=*/■ of^s:':r: 



e^i t;-- ■ ■^p';^^<>y^4f'^*^t: 



:of: BijE 



:-VLis!=^ybr 






:.'p .'uont'; 






^:\2:A222'^: 




STC3I; :•'::'■ 


2 13 00 1 1 ■ 




CLR':, -■:,: 


2\A 2 151 




ADD3C;: V v./ 


2.15 l.StiO'. 




;LAM'i;..;;: 7: ,■■::■;: 


'i2:i,6 O.OObV 


^f3C>: 


'■ :'•':' :■ ■ ■■'.'■. : ■ :.:.', ':: 


^17 4UQ0 




:sTco' ■:'">"■;:■■■.'■, 


220: 0^152 




LklE .■.,'^' :;'/.■■■,.„'■■ 


,221^ '20 15 




ADDIS:' ;,: ; 


.222- 11 20.' 




.ADA i':-;;'-: ;■':.':;: 


22 3- OGOp • 


*,3ri 


'.:■'■' ■ •,'''■■■:':"',.,:■'•:■ 


,22:4. 0/-I50 : 




■ az.e' ■'■:■• ''r^ '■.<■■' ;>';■■ 


22 5 602 1-; 




iJM^ll }};^y 


226 2 632 ■ 




:ADD8B :C + 1/ 


227.;i:140 .. 




:,A dm; /■;:,: 


2.30 .0017 


' ■ • , ' ' 


,17' ■'■-■■:■■■■. ■:':',: 


231. 4 50;; 




fi^ZE:- 


232 '6^02:/ 




,:JMP3H/ :■;•.'■.■■ .''"' ':■■:•'': '■<,' 


233; 7052. 




■JMP3R'':'' '■..■: ,-/:n:^ -r''.',;.' 




[PEN ^SUBROUTINES] ■- ;; 


234 00 56 


/'/7U 


SET16 CpEN up 


2 3.5 ,0000 







-236 1020 




LDAi- 


;:237 ,000 1 




1 


;2 40 ^42 52 




STC 7R+3 


;J24\ 62 51 




JMP 7R+2 


:2-42.'0056 


#7D 


SET16 CpEN DOWN 


243'.C)600 







2 44 001 1 




CLR 


-2,45 ,4252 




STC 7R+3 


246 : ^2 51 




JMP 7R+2 


^; 24 7. 6 05 6 


//'7R 


SET 16 [PEN REVERSE-' 


2 50 OOOu 







.251 1020 




LDAi 


.2 52;:; 0,000 







,: 2,5 3 1,6 6 




BCOi 


"254 0,001 




1 


,255' 4040 




STA 


■256.0252 




7R + 3 


'257 1120 




ADAi 


,;260 0513 




0PR13 


. 26:i:":4262 




STCP+1 


;;;2:62;p;:5D0 




OPRO — ^"^ 




Ct-EM DELAY] 


'^263;;-;i02o 


//7S 


LDAi 


26 4: 470 4 




4704 


• ,265: ■3605 




ADDbA L-1 


266 0450 




A^E 


■26 7, '6 26 5 




JMPP-2 


270; 6016 




JMP16 




CbFt 


TO SET UP FIRST BLQCKvO 


27 1 6565 


//S\J 


,JMr60 C CYCLER SR 


2 72 7350 




4U ':■.■/■■: '':: 


273 6747 




JMJ-6V 


274 67,52 




JMP6i: [RESET ARC INDEX 




[MANUSCRIPT LINE SCANNER] 




CINTER»^RET TYPE OF MS LINE] 



MANUSCRTPT] 



X , 1 LM=2S3 '. 

P co\'r 

-CPr:\i SUBHOUTliMESl 

235 0056 ff7U SET 16 CPEiM. UP 

236 0000 

237 00 15 RTA 

240 1560 BCLi 

241 00 40 ,'40 

242 6256 - JMP7R+5 

243 00 56 niXj SET 16 CPEiM DOVJiM , 

244 0000 - 

245 0015 HTA 

246 1620 BSEi 

247 0040 40 

250 6256 JMP7R+5 

251 0056 #7k SET 16 [PE:M REVEHSE 

252 0000 • 

253 0015 RTA 

254 1660 HCOi 

25 5 00 40 , . 40 

256 0353 ' SCR 13 [SAVE I;^ Z--WAi 

257 3605' ■ ADD 8A ' ; 

260 0450 AZE 

261 625 7 JiMP p-2 . 

262 0005 ZTA • 

263 00 14 ATR .[ CHA^nJGE THE PE.n} 

CPENJ DELAYl 

264 00 1 1 ;'f7S CLR 

265 3605 ADD8A C-l 

266 0450 AZE 

26 7 62 65 JMPP-2 
270 60 16, JMP16 



;27 5 65 so • 7/6F. JMl^GH t AMS 
276-1^20 ■ ■; ■SHUi CEOL?. ;^ 

:2,77 Vi'^tjo-;. ,■1200; .V;; .; ,; 

;30b':'.6«7 5V/ ^:: J^i/6F.' '.■''■■■' 

':30-\'::-'V^26'\:':':\'[,':\'^^ , 

■■30;i-a2ooV-. ;-■,, ■22'oo':,,:;'-;^ ;'■:■ 

.■363. 6635 ;::;;'JMI^^M..[ SYMBOLIC' MG SR 

■■:30 4. ,4 420 /'■,':•■ --^SHDi ■:[-'?:'.' ''.■'',\^ 

'■36b''..-i^7oo '.;:;>■;■ ■;:/! 700 ■■■;V'::; :■,■'■■■■:.:.•:■■' ,.■■'■■■:;■■ 
'■207 AA20: y::- iiHDi' ca,?,;-;;. :\v- ■,,■*;•(/,;: •;.:, 

•••3-10'6'500''.' ''^ 'V-^SOO' •■:•■■: ;■.■■•.■•,■>. •'^ ^^ V.' '■'v' 

'31.1 67^3-- , :i , JMi^6U C.OGTAL B/^SE JSET SR: 

■,.3i-2';j''42o;-/.::'/.sHui:tc? V ,, ,;^' ■ ^- ;,■;:. 

\.313' 6600> ,■','.. .6600. . 

■'314. 6332 i .:;jMP6I '[COMMENT ■ i' ■ -' > ^ 
'^315.;2765" ' : .ADD3J + .1 ,; C-11 : : ; 
V316 ■■0 4 5'r;r-''' •■■■■•AhO ■•./■•/.:■'.■.'■■■ :.':;' '\::-''::' r 

''3176337- : ■ jMh'6G: LARG ;SCAN „^ - 

> : 'CCOMMAND MS LINE SRD . ■ ^ ' ! ■: 

LStORE FIRST AND LAST LETTER FOR COMKARISpNl 

::0-32O ■ ■ 1 3.13 ■; ffSH'. LUH 1 3'' ;. '/ ■ ■■■ ,■., .■■■:'■ "v :■ ■ ■ : ;:'. 
i- ■32l,''l340.' :•' ;:':..'''S'TH ■..■;■.■ ■,.■' •:■ '-y"- /' .. l-"]'::,:' '■■■:r 
■■322 173Q - :/:. 6G :CLEFT HALF 'OF:; COMMANQ .; 
3S3 '6 550'; ■"■''JMH6R' CAMS V; ' ■:;•■■':. ^'"■■'■yr'^^y : 

'":324 ■■;i 420 ■:/■■:; ^>SH^i■■C;EOL■^^;v,:■■;■ :■::/:.'..'■■■. 

'■..■32'5'^ 1200'.- ;. '■■.■■1200'\ /■:■.- ■/■■..,:. 

■ '326 6446 • ;jMP6A I. INTERh-RET, AND, EXECUTE CpM.MANp:; 

■^^327, ■■T340''^'-^ ';.'STH- .■■■';■;■ y ■■:':■ "■■''■'-■'':■'' -y'' ^'' ■■ '■'"' ■-''■■',:■'"'■'■"'/'■■'" 

■' :33p '573Q ; ■ ■ ^ I 8G ■ C RI GHT 'HALF;, OF CpM.MANp ; ; / : ! . 

^■'33l■:'632:3■'■■■■:'^-^■■■■v)^^i^:P-.6./^^^■" ■';;.:.■• ^'^ rr--- ':■''■':'. ■...:.:■ 

■' ■ ■■ ;-csKiK'' to..-:egl]' ■■.■.;". ;. .;';-- , ■ ..:■':■■'■:■ 

; ;■ [READ BY SR^FPR: 'comments AND ERRORS] . 
;-^-332. ;6 5 5.P:'>6:r JMP6R.:;v" 
r-333' 1460 ..v.-^i^^SAEi,,:^ ■ 

334 0012 12 

33b 6332 JMi-6I 

336 627 5 JMJ-'6F 

CSCAN ARG-PLACE IN SCRATCH]' 

337 6372 #6G JMi-6D CR. 11 HW 

340 1313 LDH13~ 

341 1371 STHill - ' 

342 6 550 JM1"6R CAMS 
3 43 1420 . SHDi CNX? 
344 5300 5300 

34b 6351 JMj-P + 4 

346 1460 SAEi CEOL? ' 

• 347 0012 #8C 12 [CONSTANT 

3b0 6 341 JMr'P-7 

351 137 1 STHiir 

352 6400 JMP6C [CONVERT NUM TO OCTAL. BASE..- 

CSR TO PUT ACC INTO ARG TABLE];^; '' 

353 7 554 * 40 JMJ-'4Z C DATA CHOICE? 

3^4 1074 STAi^J CLOAD ARG ' • .;:: 

355 6774 , JMr'70 CSAVE ARG INDEX iVo 

356 C")4 .KW<\'i LARG TABLE END CHK'4-; 



^■■■LN^Alii 


:[--'-p/'.' 


'.:(:aNT. 


^■■3.^7; 


6-36 1 


■360 


67 bH 


-■.36 1, 


6 737 


•;36,2' 


,62 7 5;. 


.363' 


102 


■■'■3.64- 


'0017 


^365': 


.56 62 


■;.366 


6275 


.'.367 


0000 


.370 


OpOO; 


-37)". 


OOOO 


:':372' 


6G71'' 


■■■•37:3' 


5727 


•37;4' 


6600' 



.. . ■ JMi''P+2\'"..' .. ' ■■• ::- ■ 

, ;,'jf-'iH6Z [RESET AR6UME:NT\TABLE .- 

-';":vyMP6F.'-r':..:-'V.^/:, :;.:■;;; f/,. .■■ 
C iiET .Ul^- SR FOR (s)EG ' ARGi: ■ 

■■'/.,'■' ^:. .COM.'" ■■;■:■': ■\- 'v V '^ ,.. '\ ■■"■•'■■ 

' , STCSd : C SIGN oi-erator'; 

;'/JMR6F: ;CSCAN . ':■■''' 
*3a;0000C:X TO WHICH-: . ' •' 
#3Y 0000 ,LY TO ^: WHICH 
^7iV. OOOO .['ARG TABL' CNTR ^ 
L SCRATCH TABLE INDEX RESET' SR] 
#6D;;SETiM '■ ., 

. ■.■■■.'4i8G-,i.v' ■■ .■'•>■::'■ 

'■■■..•'■■JMRO.'. •,;■;■' ;::'■.■■".■ 

.CEAIT RECOVERY. SR].;. 

:^CABSbEUTE: LOCATION]': 

C OVERLAYS. EXIT /PROGRAM WITH GRARHX] 
[RETURN TO LINE; SCAN WITH MS INDEX AND BN3 
C IN. ROSITION TO. RESUME -SCAN AFTER EXIT3 

-:.■;■.:;::,. 3 7 5::,; ■;-■■■;:;■ '' '-.^V.. :-..:.,^- ;: . ' 
v375: 07.1 f.'''^: ^;.-RCG u. :,■ :^ ^:' :;■" ■':.'.-M\ '::'':.- 

:376';'.62.7:r:;' ..■^ 4T, ::■;■:■:■ '.■■■.v. ^ ^'-^ ■-':'.■■:': 

;377 6273 ' : JMR6F-2::.' r 

■■-':a40o'' ' :;■,:■■ 

[NUMBER CONVERTER- SR3 ; 

CENTER. WITH NUM. IN SCRATCH 8H AND BASE^IN .8D3 

[SIGN ,0F:^ NUM IN 80 3 

£N0i:^=+yC0M=-3 ■.'"'■:■ ■:;::■: 

[EXITS WITH SIGNED OCTAL NUM IN ,-ACC3 
v6C LDA 



STC6K. [RETURN 
' JMi-6D [RESET 1 1 

LDhi 1 1 

STC8H [SCRATCH 

LDHi 11 

SHDi 

1200 

JMRP+1 5 
[IF AR6 ENDS IN X3 

SHDi 

5300 

JMH6E LMUL ARG 

JMH6M [DIG CHK 

LDAi 
tfHO 12 LNUM BASE 

MULi 
^&H 0000 [SCRATCH 

STC8H 

LDHI 1 

ADD&H 

STC8D 
ADD8H 



■ -iiOO 


-.1000 


:A(J 1 


0000 


.402 


AAA5 


:,;-403. 


6372 


■:AOA 


1331 


-405. 


4 42 1 


;^06 


133 1 


':407 


1420 


■:a 10 


:i200 


."^i-i. 


6426 


■ki2' 


1420 


':A13- 


.5300 


'AAA 


6 432 


■::4i'5 


6 441 


::.^i6' 


1020 


'WlT^ 


:ooi2 


>420 


1260 


"421 


0000 


. -^122 


4421 


■■'423- 


131 1 


A2.A 


2 42 1 


■:42 5 


6 ^0 5 


■42.6 


44 1 7 


',Aiii: 


242 1 



::S/i32^jb;o4;(i'6E. :LiJA4 £ :,:mui-TIj-ly : A 

'.y^ab 0^2 1.; •. '8H 'LAHG 

:i':':436:;'4 42i:. ?• :■ '; -at-GBH .: :.■,. 

V :437 :23'^7;, ■ . • :APP8'P t 12 ■ 
i 4AV-6A26 ' 'C .<JMHP- 12 ■; : 
¥''0y-:'r '-:">'^;'c'DlGi:T:' CHECK ].■- 
:;.; '44 1 ■ 2 76 5 ■ (I^ 6M:- -A D D '/QiJ +; 1;;. C- ■! 1 ' ;;': : 

■■■/i;i42'-'045i .;.■■■ \-'-:fit^o.:''''(yr-r''-yr 

'yA'A3.: 6000 : '' JMHO' ; •■ 
; 2,44 00 11 , : vCLR CBAD ARG ■ 
44b 0000 //6K CKtiTURN 

C INTEKI-'HET .AND .EXECUTE COMMAND] .; 
446 1020 /!'6A LDAi^^JREiiETlS:'y'-:^'\ '■;'''' ':'-vr/':::'.r' ■: ,^ 
AAl 6030 JmPbT:' /;'■.■.;,■■ ,::; 

C8T 15, l+TOTAL COMMAND VOCAB I E 27 D 
4b0 4470 ■STCBF-i;; ■ '^ : • : : :^^ . --^^ 
4 51 6 7 b2 JMP6Z . C RESET :AKG I NDEA ;■ 
4b2 0075 SETilsy::: •■; V\'v. 

453 470 ' SFv-l: ;:■ 

454 3730 AUD8GV.; '■ .^ ' : j ; 

455 1475 iiAEil5 CMA.TCH? 

456 6460 JMKP + 2 ■ : ^y^ ; ■' 

457 6 46 4 JMKP + 5 .■ ' 

460 001 1 CLR,-' ..^i■ v; y: ■': 
46 1 1455 iJAEl.5 ■CENb.TAB? 

462 6454 JMH P-6.'^,; r'^VV ■■..■.; . 

CBAD COMMAiND-RESEtfARGrSPEC ARG,, indices:'' ■ 

463 6273 M)r'6F-Z:'Sr''^' ....■, .:.,.. 

464 IGOO LDA [MATCH ': 
46 5 0015 15 :.;; ', ' 

466 1140 AUM ;,:■,/ ;-!;:: 

46 7 470 P+1 :; !::,/:• 

470 6030 JMP8T 

C IN'l ERP.RETOR COMMAND :'TABLEi" 

471 27^2 #8F 2742 CDO,'' ' 

472 3 7 43 3743 C LP; 

47 3 2 72 4 2 72 4 ;C DA 
474 3453 34S3: C iX^.i: 
47 5 3 4 54 3454 CIY' 

476 2753 2753 CDX;- 

477 2754 2754 CDY/: 

500 3047 3047 -CETy^ 

501 3347 3347 CHT;, 

502 2645 26 45; CCR-' 

503 4347 ' 4347vCPT,;:> 

504 4241 4241 CON 

505 4350 4350; CPU 

506 4327 4327 CPD 

507 4343 4343.;: CPP: 

510 4326 4326H:CPG'v 

511 432 4 -4324 VCPA/ 

512 434 5 4345vCPR ' 



10 


LN^^l 1 






p 


COi\T 








bl3 


4353 




A35:3'j.i^X' ■'■■"■■: 




b]A 


4354 




43 54 i:r:Y ;■ ;.: ;: I ■ 




bib 


36 43 




3643, CKP ■, 




516 


4730 




4730:, CTE ::■>:','/' 




bl7 


4745 




47 45: CTR X. :; 




b20 


0000 




0000 t GIVE; U^::;v. 








C COMMAND BRANCH TABLE,], 




b2 1 


7 57 1 




JM|^9A: [DO . : „: 




b22 


7604 




JMh'9B;;tL60H -' ■ ,•: 




523 


76 42 




JM^;'9C:;CDATA~ V,' ■;. k . 




52 4 


7 42 4 




JMh'9b : C INCREASEX^ . 




52 5 


7 436 




JMH9E: tlNCREASEY ■ 




526 


7654 




JMJ"9F:,rDATAX: . .■^' ' : 




527 


7657 




JMh'9G [DATAY. .' 




530 


7055 




JMf^9H CEAIT..' 




531 


7733 




JMf9lCH(MX ;•,■::': 'l.,/ 




532 


7 140 




JMK9J .ccarriagerC: 




533 


7176 




JMh'9K ■CHRINT' ; .-v: 




534 


7 4 50 




JM/^90 vLOKlGIN , , 




535 


7 520 




JMp9R; Cj^ENU ,: '^ 




536 


7 522 




JMK9S Cl-'END ■ 




537 


7524 




JMp9T^C/-0SITI0Nr; ' 




540 


71 15 




JMh'9L; C/^LOTG: , 




54 1 


7547 




JMI-90::C>'OSrTIClNA •;:■ 




542 


7563 




JMr9M Ci-OSITIONR ■,:;■ 




5^3 


7541 




JMh9L :CP0SITI0NX '■ ■ 




54^ 


7533 




JMh'9N CPOSITIONY 




54 5 


7 3 50 




JMH9I- tKEYBOARDi^ ■:„ 




546 


7513 




JMh-gV /CTIME' : >,: :■^:■:■■ 




-547 


6657 




J^;l^9W: C'TRANSEER :vi:'i 








CADVANCE MS- SCAN' Sf?D .' 




550 


1000 


#6R 


LDA VCADV SCAN. V:: : 




551 


0000 




::■■■:■■,:"'.;:■:'■: ..'..v-':.'-- .■•'■:■ 




552 


5052 




sTC3R;::■;^;v';■::' :;:,j'',:^'.: ;;;■;: 




553 


2013 




ADDIS.'X'MEM- end:?? ;? - 




554 


0470 




A2i^Ei\^::,::^ :':>.;.' ■V'-.s^::-.;:;^-/;; 




555 


6560 




JMP p+ 3'"'^ ''.•''•" ■-'^^■-'C''^''':,^ 




556 


1333 




LDHiis:"'-;;:.' '■■'^'Vv-,. ;,,;:: 




557 


7052 




JM1-3R [RETURN ■:: 




560 


0073 




bETil3:C,RESET ■ 0. ■ 




56 1 


7377 




1311 : ::.X' \: '■■ 




562 


6 56 5 




JMh^60: C CYCLER 'SR / ■: 




563 


7000 




7000. £ NEXT' BN , ' ■: ' 




564 


6556 




jMi-p-6 .■■■,-■..•■■:; 








CCYCLER :SR3 > • 








CGALL :ARG, IN P+ri; ■ ;.; 








CNMMM: gives: -BN;>lMMi N,TO> 


Q ,N]' 






C.NOOG GIVES NEXT BN. INTO 


;0 ,N3. 


SdS- 


0070- ; 


>60. 


■SETriOj rMAh-^h-NTR^ ' 




566 . 


0754:: 




•;8R-i. .. '■■•^-v^/- '' ,::;■■:■;■■: 





567 


1020:;: • 


. ^.LbAlV 


,570 


1777 - 


' ;-6ooo 


571 


2 000:;-;:'^ 


:• :At)p0.-.;; 


572 


4017- V': 


:: i^STC;I:7; 


■573 


'0220,; ;-:v: 


. -^xsklo' 


'57:4 


2000 '■ 


: : :addo 



:[ARG' PNTR 



r:!::;,. LNi-76l 



■:> ■ COM- ;...... 

Si:7S"^6ii■7^,: S:rC6i^: LHETUHN: ; 

;., ■ . [ MAi-; SEARCH] . ■ : ' : : '. :: 

576 1U30 - VLoAilo^ ::.-:> 

:'577' :lb60-,-:': ■■: ■,'BCLi'::.'-- V-- :-'-y-.'.: 
:600 :0177^ ■'■■::■ '777: y: - i/'^,) . ■■ 

■601 :l;3b7 ; BCL17 ■' .' :: 

aOZQAbO ;i AZE. [RIGHT QN?;:; 

;60 3,:';6$7^6' ■■/■/• JMH.p- 5' :,'■' 

6GA-\0\r ',. ■ '''1.0^17: '^'K ■ :^ 
■605- l/fSO; . :;SAE10 :C IN. CORE?': 

606 .66 10. ■. JM»^P+2'y/. ■ . ■.■',^■!';; 

,667' 6-7:13- ' .'::JMP3A..- ,:;:.: '■.,■ ^^', 

6 10 1060, '. ■ vSTAi. 

6 11 0000.' *8S 0.. C NEW ■ Q I BN ' .; : 
:612 , .1560 . ''BCLi. v.' • 
:6r3 :7000::. . ■• .7;000. : ; ' :U . . 

6 1^:0470,' -. ■;/^ZEi CBUMh'.' Ri£Q?: 

6 15' 6630 / .V'. JMP6h'+l C'YESv ; :•; ; 

6.16' .i;010 ; LDAIO CNO : ' / ; ■ ; 

' .: COLD- tJiBN IN P+l] : 
'617' 1057 .■■, StA17 
'6!20 0011 : . : CLR ^ 
. 6kl 261 1 i'/eu ADD8S. ■ 
.622. 1:050. //r'-STA 10 

.62 3 462 5; . STCP + 2 ■ 
' 62 4-;07.:lO;. - \. /;;RUCu ..■;■ , ■. 'v/;: ;-.•,■:,. 

625:0000 ■;. -voooo- " 

.626 001 1 ■-■-: -r CLR 

'627. 0000 #6k0''[ cycler^ ret. ■ 
■ ^c get,; next block] ;, 
■■'■ '■.::;■,■-,■ ■■Ldai-o;. 

''/- ADAi-' :. 
7/8B.: 1 ■ C CONSTANT ' ' ;. 
' ; :STCSS [NEW; QIBN. 
■ ■,'■ ■;;'JM)-'6Q-:-; 
. C SYMBOL I.e.' ARGUMENT^ J^-S-: 

l^U'^fUTS NTH SKECVaRG /INTO ARCS, -TABLE] , 
#4M :JMi-6D^ C,RESET SCRATCH vINDfe^;,; 
,;.■ ■;:'; JM/-'6R' CRAMS'.'" 
■.:■;./■::■ STHi.ll ■■■ :y':-^'--' 

;;;■■■:;:■.': ,ysHD-i'-:: ,,■■/';, :'-:-,;; 
:-;.'';^\;vvj;'2oo/2-',/ ;:.:.,■:■'",. 

■;:-,;-:■.>;:: J[^i^'p,+ 2v: ■:,'■''{■: 

:-;'-. •--rjMh^R- 5.'.' /:' ■,.■,■■,,.■•■ 

::;^>JM1"6C [CONVERT NUM TO CORRECT : BASE 
[ABSOLUTE VALUED 

-[■'-:r:;'-/- /■■.■■■.:■ 



LUPDATE'^1EM0RY MAK. 



6 30 10.10 
6,31 1 120. 
.6 32 000.1 
6 33- 461 1 
634 6621 



f^ 



Y''r 



:635: 
6 36 

:6.37: 

.6 40 

:64l: 

■6 42 

6 43 

6.44 

6.45 

646 

.'647 

..6 50 

65 1 

6 52 

'653 

6 54 

655 

:6S6 



6372 
,6 '5 50 

1 37 1 ; 

.M42p; 

'120.0 

'6 64 4' 

■6636. 

6 400- 

7662 

360 5 

-4733 

6 720 

.1.120 

1704 

4016 

1016 

;766S 

6353 



■; . • .:;;UM1:'80 
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CTO PEN LINE POSITION];' 

12 57 OUll CLR 

1260 3534 ADD7A ';■.,': 

126 1 00 17 COM 

1262 3152 ADD7B CX-LINE HEAD 

1263 0450 A^E 

1264 72 70 JMRP+4 

1265 3457 ADD7Y 

1266 0017 COM 

1267 3173 ADD7E CY-LINE HEAD 
1270 047 1 ArOi 

127 1 GO 17 COM '.,• , 

1272 3347 ADD7L [PREVIOUS TAB 

1273 3760 ADD 81 + 4 C MARGIN b.v, 

1274 0471 APQi 

1275 7231 JMP7G 

[MARGIN EXCEEDED] 

1276 1014 LDA14 

1277 0470 A^Ei 

1300 7335 JMP7K [TO LAST TAB-'SR]- 

[ORIENT^ TABULATE] ^ ' 
[DETERMINE +,-^X,Y] 

1301 1020 LDAi 

1302 7313 JMP7H+2 

1303 531 1 STC7H 

1304 lOuO LDA 
130t> 1757 ,SI + 3 

1306 1260 MULi 

1 307 0002 ' 2 

1310 1 160 ADMi 

1311 7313 rV7H JKPP + 2 

1 312 731 1 JMPP-I 

1313 1014 ' LDAI 4 l+K^OR 

1314 3152 ADD7B [X-L.H. 

1315 436 7 STC3A 

1316 7343 JMP7K+6 

1317 1014 LDA14 [-Y^OR 2 
1320 00 17 COM 

132 1 3173 ADD7E [Y-L.H. 
1322 7 331 JMPP+7 



,;0 1 N=- 1 M 1 




P CO NT 






\:i'd3 10 w, 




LDA14 t-X^OK 4 


1 3'J/i U0 17 




COM 


1 32b 3\^2 




ADU7B LX-L.H. 


1 3id6 7 333 




JMPP+S 


1327 10 1/1 




LUA14 C+Y^0R6 


1330 3173 




Ai;D7E CY-L.H. 


133 1 /i370 




STC3Y 


1332 73-^)3 




JMi-'7K+6 


1 333 /j367 




STC3X 


133-^1 7 332 




JMPP-R 




[LAST TAB bR] 


133b 7151 


//7K 


JMP7V C CARRIAGE RETURN] 


1336 007^ 




SETi 14 •' X; ■ ;■• 


1337 176 1 




bI + 5 ",■•::,: . 


1 3/10 001 1 




CLK ■. :^ ' 


13A\ b3/.7 




STCTL [RESET TAB.SAVE : ■. 


1342 72 31 




JX}-'7G 




[/•D\ 


/'^NCE TO Nr-:,T TAbl ' ' '. 


1343 1014 




LDA14 


1344 b347 




bTC7L ■ ./■■■■^ 


134b 1034 




LDAH4 [ADVANCE TAB ' - . 


13 4A 7'r:'.J7 




JMl-'7G-2 


1347 0000 


iHL 


0000 [PREVIOUS TAB ;:,;:: 




LKEYHOARD)-' COMMAND] .:/' ' ■/;; 


1 3 5U Ub3 5 


i,'9i-' 


KbDi 


13bl 1420 




SHDi 


13b2 12 00 




1200 


13b3 627 5 




JMi^6F 


13b4 1420 




SHDi 


1 35b 2300 




2300 


1356 7361 




JMPP+3 


13b7 7000 




JMP7C 


1360 73b0 




JMP9P 


1361 0b55 




KBDi 


1 362 1 120 




ADAi 


1363 0044 




4 4 


136 4 7 3b7 




JMpP-5 




CTHA'a 1-EN? SRI 


1 36:5 00 17 


//bN 


COM 


I 366 2001 




ADDl 


1367 470 




AZEi 


1370 7 372 




JMP&O [THAW PEN V; 


1371 6273 




JMP6F-2 




CTHAW l-EiN) SR] 


1372 1020 


ry&O 


LDAi 


1 373 0076 




SLT116 


1 37 4 41 16 




STC7M 


1 37 5 2 400 




ADU6C 


1376 5400 




STC6T 


1377 6000 




JMPO 
D1400 




CuATA SCANNER OVERFLOW AND. UPDATE 




C DATA' IS;: READ;. FROM'' UNIT; ?:ERQ3::'';v^ 


;:'-i;400 'lOOO' 


,#6T 


■vLDAv'^-.i' 


n-Aui ■ odoQ 




■':0:::y'~\y' 


■1 402 4445 


^. ' ■,• 


;.'-stc6k::/. 



SR] 



til LN-1601 



p 
1 ^tU3 
1 /lU'i 
1 -^iUb 
1 A06 

1 AOl 
1 ^10 
1 A\ 1 
1 -^U-: 
1 /-lis 
I A\A 
XAlb 
1 ^^16 
WU 7 
1 A2U 

1 /.ei 

1-^22 
1 /i2 3 

1 ''l2 4 
1 A2b 
1 /|2 6 
1 /-1 27 
1 430 
1 431 
1432 
1 433 
1 434 
1435 



CO NT 
2003 
0017 
1 120 
3377 
4b0 
7 412 
7415 
1023 
7 470 
6. '1 4 b 
6703 
6 56 5 
6000 

6 7 07 
0063 
2777 

7 4 12 

1034 
1 160 
0000 
1014 
0450 
627 4 
4367 
3457 
4370 
7531 



1 436 
1437 
1 440 
1441 
1 442 
1 443 
1 444 
■1 445 
1 446 
1 447 

1 450 

1451 

1 4 52 

1 453 

1454 

1 455 

1456 

1 457 

■1 460 

1 46 1 

1 462 

1 463 

1 464 

M65 

1 466 
1467 



1034 

1 160 

0000 

1014 

0450 

,6274 

'4370 

'3534 

4367 

7531 



AUU3 CCHK OKLW 
COM 
ADAi 
3377 

AZE CENU Q? 
JMl-'P+2 CNO 
JM»^P + 4 LYES 
LDAi3 

JMP7F L-ZEKO? 
JM»'6K L RETURN 
JMh'6^ EDATA HEAD 
JMJ^60 CCYCLEK 
6000 CNE^T BN 06 
JMP6W CUl REST. 
SETi3 
2777 
JMPP-1 1 
LINCKEMENTX COMMAND] 
//9U LDAi 14 

AUMi 
#bA 0000 CX REGISTER 
LDA14 
AZE 

JMh'6F- 1 
STC3X • 
ADD7Y 
STC3Y 
JMI-8L 
CINCREMENTY C0MMAND3 
j!f9E LDAi 14 

ADMi 
//8Y 0000 CY REGISTER 
' LDAI 4 
' AZE 

JMh'6F-l 
STC3Y 
ADD7X 
STC3X 
JMP8L 
[ORIGIN COMMAND] 



6234 
1034 
4367 
1034 
437 
61 16 
1020 
0000 
2115 
41 15 
2114 
3457 
41 14 
5534 
-S457 
6274 



#9^ 



7Y 



JMJ-7U 
LUAil4 
STC3X 
LDAil4 
STC3Y 
JMJ-'7M 
LDAi 
0000 CY 
ADD30 - 
STC30 - 
ADD3N - 
ADD7Y 
' STC3N - 
STC7X 
,STC7Y 
JMP6F 



4,,^r pev 



f^oy/e "^^ 



PEN LOG 



to^/fTf^^ 



1 



2ii^:V l-.i^=.167 1 



LDAI'A TEST FOR ^ABORT.ON -.0 3 Z^."' ■':■■■ ^ •'■.■'■'■■ .fl. .■ :-^^'- 

C IGNORE UNLESS SSO . IS SET] ' ; ■; ' ''r: 'y''^^^ ■-'v-'''^:\'l/'''''' '■''■■■■r^''' 
i IFvSijO AND: SSI ARE: SETREVERSE PEN FOR , EACH '■-OT^':-:::.:^ :::■■[: 

t rF'';sso :'ois!LY is vseit freeze hen ^TiLLvENDVdF current loo 







^^^■^■■.■.■.:'.^'\'V,,:.: ■■ ■ ■ 


'■':-'■ •'.■■■■■ ■ ," ■ 


:r47a- 


0460 


7y7F: SNSiO:'^ 




:1^71 


047 1; 


■■..^.'■'APO.i:;-?- 




::i/|72:^ 


■:6000 


.■;.:•' •i^JMPO':..' 




:-14T3. 


450 


■ •■'■]i:'AZE ;■■■:.. 




lAlA: 


6000 


■,■■■■■;■ -■■■JMHO^.;:: : 




■a;47:5v 


2001; 


;/.':i'/^ADDl.''.:::'; 




i'^^^ie 


!047 0" 


[■■'■.' iVAZKir^; 




SAl'f : 


6000- 


•,:'■.■ ^JMPO ■. 




•.1 sbo- 


3^05 ■ 


:; -f^ADDSA' t:-^;::• 




asoi; 


5512 : 


'^::■:• STC8K ■"■r.,-l-;> 
:C.FREE2E->ENy;^.:v''r; 




\'i;5d2J 


3472;; 


^.•.■■■■:,V'^';^;AD.D7F.+:2.i\'':\'- ■■'■'•'■: 




■■I'SOS- 


4.1 1 6,': 


>■:; ;;;^^:ij,TC7M'':.':^:;v;.i;;.;?c 




1,504 


,3472: 


/.'.■■■.;,. ■■■■ADb7F + 2:'.^",:-.':'^V 




:;i:5Q-5. 


5400^ 


'.■■.{■■stg6:t:;,.'-.:;Vv '..;:^;.: 




1.506 


1 120 


.;:-, 'v.;' AD Ai /;'■.:::'■'■,'; ': 




1 507 


400 1 


.'y t-:- 311 6 :-■'■:' ■.K^-' 




i.510 


,1044 : 


■.•■- ■■-.STA4 ■■ .•:.'".;..■:■, 




1511 


627 4 


,^:: ■■:;.: ■;:JMH6F--lVx'. ;■;.■•■ 




:;i5,i2 


0000. 


*SK OOOO ■ / V i V 
CTIKE C0MMAND3' : 




vis 1-3 • 


,1034 


#.9V'.LDAi 14. 'r 




■1514 


■4107 


■,- :^::;.";..STC 7 T+1 ■,'■■■,..:,■:':■ 




1515 


1034 


;..,::::LDAi.l;4 .■.■'■'. '■■-:■■:': 




-1 5.16 


.4'26 4 


,.: : '^STClS+l :■ 




ri.-5r7. 


627 4. 


■•■::\v'^jMK6F-,i''' " :" 

it PENU •COMMAND] . 




:i520 


62 34 


!tf9R^ JMH7-U ■; 




\52.\, 


:6274: 


■■'JMP6F-.1' 7-; 
tPEND; COMMAND] : 




•'l 522' 


6^42: 


J/SS\.J^flD- :. 




■1523 


•6 27 4 


■■.■■:^JMH:6F.-:1^.:'- •■^:.-.\ 
CHOSITIONh' COMMAND] ' 




■152'4 


OOl'l 


■.#9T:;CLR '■ ;.,:'■;. 




,-l52 5 


3426 


■'■'.,■■.■> -ABDSXV:;,---.- ' .-V;--- '.: 




:.l 526 


4367 


v.^;.'',;::S,'rc3X, /■■:.■,;://•.■■ ,:■■; 




i527 


3 4.40' 


^'::"'\0V.vADD8Y--'';^^-':''''--;,, " V,:, 




^l-530' 


4370; 


;...;.:"■ ^::'STC3y '.:}■::/■:■::': :-:'\^:-:- 








. t KOS ITiON AND RETURN 


;T0': SCAN 


•.l.'53L 


6 11 6 


.■/?8L;:jmk7M' :':■.■'. :.;■•:.. 




::l.,53g; 


^62 7 4: 


/. ■■ ■.:^jmp6:f-i- :',■■■ ::•,;■■ ■■■<:■ 

'C HOSTTI ON V; COMMAND]; 




-r5,33: 


■ 1 020; 


\J/9Ni^:£DAi':-:">r':y.,.±ry--\-:} 




>:r534 


0000 


.#7X :0000';'C k; HEN LQC? 




:;.r535 


'Aier 


■;^--'Vi%Tb3Xv:-^^-.^;;':;^.^;;\::'V,v 




■1 536' 


■3440; 


V^■■.:,^^,,^APD8Y ::;:'••■ '",:v.-::;:';:.,^ 




'71537 


■■4'3;70 


.■■■.-■;•,■:• ■SIC 3.Y ■^:••■".■■■■;■:;;:.,■■^-■■■ 




'■;i54a 


■'^531 


s^jMh-SL [MOVE : AND' 
CHOS.ITIONX' COMMAND]': 


CONTINUE 


■1541 


' b6:l',l' 


:-#9.Li>.cii'R:;:-' ■ ■ ■ 




:i542 


:345'7'i 


':'^V>:;;:;;AD'07Y-' 





SR] 



SCAN: 



2<S/: Li^Tl'J^P: 




;-.,:,p'-'i;pNT'-;'-::., 




1 543 ■•437:0 ;■■' '; 


iiTC3Y ;■: 


1,;544:' 3 4£i6 ; .: 


ADDBX : 


1 545, ,4 36 7;;,;. ;■.:,;■. 


■STC3X:'': ., '■ ■■ .;- -,:•■■, v.. ,■;,.■. ■ ... >. ^; ,■; -. ■ 


i:546"'7 53..lV.,,:v: 


JMi-'BL :• CMOVE AND.: CON.TINUE. SCAN 


•.■;.^ ■ ^;^ Cj-0SITlbNA:''C0MMANL)3 : 


i 547. .1034, f!.; 90; 


LDAir4.' 


■i;55o' 4:367:;/ ;';■ 


sTC3.x:;.:^ 


liisi- 1.034 •■;:•.■ 


LDAil4': 


1552 A310''^ ^ 


STC3Y:- ■ 


:1S53 7531.. ■ /'; 


JMP8L: XMOVE And: return to scan 


.':'-:tDATA-\CH0,icE:rSR3\V;/::;;\::' ;■■; ■■,/,.. ••■ . 


..■';••'■.;;■;.. :■■/.■■ c-o= 


:NEAT rO INT. FROM; DATA.: QUARTER.] . ; 


i 5 54 ,0 470. ):MZ.- 


■AZEv'v,':' ' ■'" ■' "''■ 


1 555- 047 1:: 


Ai^bi ;■ 


;i-556 ^ooo; : :: 


■.JMPO ■■■'■ 


1 557 0055 


SET15 


1 560 0000 





1561 7400 


JMH6T 


1562 6015 


JMP15 


C^-OSITIONR C0MMAND3:::. :■ 


1 563 1034 #9M 


LDAil4 


1 564 3534 


ADD7X 


1 565 4567 


STC3X 


1566 1034 


LDAil4 


1 567 3457 


ADD7Y 


1570 7552 


JMP90+3 


CDO 


COMMAND] 


1571 1000 #9A 


LDA 


1 572 0013 iJbM 


13 t CONSTANT,: 


1573 1065 


STAiS 


1574 1000 


LDA 


1 575 0755 


&R 


1576 1066 


STAi6 


1 577 001 1 


CLR 


1600 3605 


ADDBA 


1601 1064 


STAi4 


1602 022 1 


XSKil 


C,-.'6 


M S G)IBN3 ":':'t 


C//5 


M S ADDRESS] : 


if/ A 


LOOP COUNTERa::,'!^!-':;, 


i/n 


CURRENT LOO)^;itvJyM';i; 


1603 6274 


JMP6F-,1 >W:" 


CLOOr' COMMAND] ^■7'? 


1604 lOidO //9B 


LDAi [SATIS?::;; 


1605 7776 frSA 


- 1 L CONSTANT-.: 


1606 1144 


AuM4 


1607 1134 


ADAi 14 


1610 0451 


AJ-'O 


1611 0470 


AilEi 


1612 7614 


JMi-P+2 


16 13 7623 


JM1-^6N 


1614 1005 


LDA5 [GO back: 


1615 4013 


STC13 


1616 1006 


LDA6 


1617 5621 


STCP+2 


1620 6565 


JMJ-60 C CYCLER 



, 1' uoiyi 

\b'd\ OUOO 0000 CWIHN 

1 C-^.dd 6:-''/ /I JNI-6F- 1 

LLOUr COMPLETED] 
1 6X3 OU 1 1 .•'/6N CLK 
16'd''^ CJ60b AUUbA t - 1 

1 6:-'b '.-xjui audi 

\ 6-clc AVU\ bTCl 

16'<:'7 31-05 ADDbA C-1 

1 630 >1V0A AUIJ4 

1631 AvUA bJCA 

1632 200 5 AUU5 

1633 3605 AUUhA C-1 
163^J 4005 bTG5 

1 63b £2006 AUU6 

1 636 3605 AUDSA [- 1 

1 637 /i006 STC;6 

1.640 3blte ADDSK 

164 1 7 36 5 MrbN C THAW KEN?/ 
[DATA COMMAND] .■.•. '., 

\bA2 1034 /'VC LlJAil4 :'\"' ■ 

1643 3663 AUUbO+1 C6000:,: <; 

16-44 lu40 STA 

1 645 07b6 &R+1 

1646 5650 bTCP+2 

1647 0700 RDC 

1650 0000 0000 COIBN 

1651 0063 SETiS 

1 652 2777 2777 

1653 6274 JMr6F-l 

CDATAX COMMAND] . ; -. 

165^ 7400 /r'9F JMl^6T LGET NEXT. DATAV ii'OI NT/ 
16bb b^26 bTC&A 

1656 6274 JMP6F-1 

CDATAY COMMAND] , 

1657 7400 *9G JMi-6T CGET NEXT 'DATA 'i^OINT; 
1 660 5440 STCbY 

166 1 6274 JMJ-6F-1 

Lbl ONSET SR] 
1662 0016 #80 NO/" 
1 663 6000 JMl-0 

CLOOl- COMMAND TABI:.ES"X> 

1664 0000 CX OUTSIDE LOOV.: 

CLOOr' INDEX TABLEJ/i' ?.:• 

1665 0000 #8K 

1666 0000 

1667 0000 0. 
1670 0000 

167 1 0000 .0 

[MANUbCKIl^T ADDKfc:sa.TABUE]- 
1 672 0000 //BE 

1 673 0000 

1 674 0000 ' 
167 5 COOO 

1676 0000' ,„ , 

CoUARTERIBLOCK NUMp; 

1677 0000 //bZ 



-J. 5" LN=;ii'4U 






i> C.OiX"! 






1 7UU UOUO 







1701 OUOU 







IIU'A UUuO 







1 7U3 OUOO 




... 




tbJ-EClAL AHGvTABLE;] 


1 HJA UUUU 


?/7A 


0000 ., ;;:■::.■ 


1 7(jb OOUU 







17U6 UUOO 







17U7 UOOO 







17 10 OGOU 







1711 OOuO 







1 7 12 UOOO 







17 13 0000 







I 71''.^ 0000 







1715 0000 







17 16 0000 







17 17 0000 







1 120 UOOO 







172 1 0000 







1 722 OOOO 







1723 0000 







1 724 0000 







172b 0000 







1726 0000 







1727 0000 









[SCRATCH TABLED ■;; V 


1730 0000 


T-ybO 


'■■'.■'■:: :-y :--■■■;:■ ■ 


1731 0000 




>rV-C-'^^':^;^''-V 


1732 0000 




CrROTECTldM;;,: 


1 733 0000 


;/91 


0000 ■:::r^:^s ■■'•;-: ?;>i;!; 


1734 6274 




jMi"6F-:i :'':.::: :^'-v-; 




CAKGUMENT'TABLE;] ;:Vo 






Bi 754 ■■;.r''v'r, ■■:-:■::; 


17b4 0000 


#81 





1 755 0000 







1756 0000 







17 57 0000 







1760 0000 







1761 0000 







1 762 0000 







1763 0000 







1 76^ 0000 







1765 0000 







1 766 0000 







1767 0000 







17 70 0000 







1771 0000 


' 





1 772 0000 







1773 0000 







177^ 0000 







1775 0000 







1776 0000 







1 777- 0000 




V ■: ..'•■..■->..^;-..v- ., .....,..■ 




[ STANDARD^' ;CHARACTER? FONT 




[ COUE LOOKUK;-:tAB.bE:] A ;';|"i;A 




[NUMBERS]';; 



;03V 



i-'oou ,' n (' 

.H^t':^ '1 p ;^); 

•dUOb y 1 bo PI' 

' l;ii rMb 7 2C5 

you? :ri203 2H 

2 010 ;"Mr> • ?i 

fiOll 2.-^3-^l 2 J 

L'Ohi '21//2 2K 

2013 2b73 2L 

201 •'! Jb7--| 2M 
liOlb 2b75 2N 
2016 2b76 20 
20 17 257 7 21-' 
2020 2603 2fcJ 

202 1 26 1 1 2i>! 

2022 26 13 23 

2023 2624 2T 

CALl-'hABEp' 

2024 2245 lA 
2 02 5 22 55 IB 

2026 227 1 • IC 

2027 2304 ID 
2 030 2313 IE 

2031 2323 IF 

2032 2331 IG 

2033 2346 IH 

2034 23b6 1 I 

2035 2366 IJ 

2036 2377 IK 

2037 2405 IL 
2 0402411 It') 
2 041 2 416 IN. 

2042 24^7 10 

2043 2434 11- 
2 044 2444 1 tj 
204b 2460 IR 
2u4o 2471 IS 
2047 2b07 IT 

2050 2515 lU 

2051 2523 IV 
2 0b2 2 532 IW 
2053 2541 IX 
205-^ 2552 lY 
2055 2b63 Ic 

LCAiJE SPECIAL]' 

20b6 262b 2U 

20b7 2626 2V 

2 060 2 627 2W 

2061 2643 2X 

2062 2650 2Y 

2063 2651 2/i 

2064 2657 4A 



■2:f'-::L!>i?=^32 


:p':. 




'}'■■■.■. p' ; 


CONT.' 






;2G65-- 


266 5 ■ 




■4B'-"' 


2066- 


270 v: 


■;..■■:, 


40?: 


2067- 


2707:- 




■Aii-}:: 


:2 b 70; 


2^12:: 


."■■ ' "','. -■ 


^4e:;;-. 


■2 071 


.'27:13:' 


'i':''-':4. 


.•■4F^''':v 


20.72'^ 


■2T\Ay 


':■ :,'■-:■ 


:'4G'-'{ 


2:07:3: 


:27lS: 




'.4H':;' 


207'4: 


272 a;' 


V '■' y'-.'- ■{ 


^'41': 


:2:p75; 


■27:31;.: 




■AJ> 


:2076/ 


^ 2;732 ,. 




rM:X' 


;2077 : 


■2'746:'- 




■4ii-:v 


- ■:■■■,:■:'.■ 


, ' ,' ' .■'■ ■ ■', '" 


'xkc)flbN''C.0t)ES3 






:CNUMBERS1- 






t ail 




2 100 


:06oiv 


•#2A:: 


:0601:\v 


2 101: 


4301:. 


^f. ..■■•'■■'' 


:>43or; 


v2 102: 


'0 40'4.: 




0404.: 


■2 10.3; 


501 




::0sor:: 


2 1 04' 


602 




0602 ■ 


2105; 


0701 




070 1 ,;. 


:2i:d6^ 


000 4: 




.Q004:,' 


2 107 


0101:' 




oior .: 


2 1 i 


0202;: 




0202:.' 


:^2,ii;i; 


6605:: 


:c 1-3 


660^::; 


2:112 


60 k 


.#2B 


:o6Qi ■;■ 


2-113: 


4602: 




:4602 ■ 


2 1:1:4 


0201 : 




.;02bi ■':. 


:-2i 15' 


O406: 




QA66.: 


:;2:ir6- 


aibi. 




::oiGi.:;: 


2 i:i;.7' 


6705:^ 


;:C2]: 


■■>7:G:5;:' 


v^l20 


:b405: 


#2C 


:p.405':: 


2 121 


•450i: 


■ '['■''.•■,:■■ 


:450i:f 


:2'l22 


O602:: 


.::..'■ ,''':';■ 


"0602 


2 12 3: 


.0701. 


'-■'i v :■":: 


:o7Gi:: 


2.124 


.000 1 :■ 




:Oooi:::: 


212s 


010 4> 




0104 :; 


2 126' 


060 4: 




.0.604-^ 
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0451 




APO 


107 


6 1 6 3 




JMl" 3W 


1 10 


1220 




LAMi 


1 1 1 


0000 


*3L 





1 12 


4162 




STC 3K 


1 13 


1220 


i'3X 


LAMi 


1 Ui 


0000 


f,-3R 





1 lb 


I 000 




LDA 


1 16 


0077 




3J 


117 


6 1-:t7 




JMP 3G 


120 


00 1 1 




CLR 


121 


102 4 




LDAi 4 


122 


1245 




MUL 5 


123 


0451 




Ai^O 


12A 


6170 




JMIr 3Y 


125 


1200 




LAM 


126 


0111 




3L 


127 


4 162 




STC 3K 


130 


1200 


//3Z 


LAM 


131 


0114 




3K 


132 


022 1 




hSKi 1 


133 


0r<22 




AbKi 2 


134 


6072 




JMr* 3i\ 


135 


1000 




LDA 


136 


0111 




3L 


137 


1070 


//3U 


STAi 10 


140 


03^3 




SCH 3 


141 


0166 




Di;Si 6 


142 


0206 




X3K 6 


143 


6053 




JMh 30 


144 


001 1 




CLR 


145 


0014 




ATH 


146 


6301 




JMi-2J 


147 


0047 


//3G 


SET 7 


150 


0000 







151 


047 1 




Az-'Oi 


152 


6 156 




JMH P+4 


153 


1 120 




ADAi 


154 


1000 




1000 


155 


6151 




JMi-- P-4 


156 


1620 




BSEi 


157 


7000 




7000 


160 


4005 




STC 5 


161 


6007 




JMi^7 



3;^;-L.N 


= ;i;6:i:,;: 






.' "■?•:.:;■ 


CO NT'.' 






;;^'V62 ■ 


0000, 


^^3K, 


0^ ■:, 


;vi'6 3,: 


1200.: 


i' 3W ^ 


•LAM:..'(-\ 


■•i:6'4'' 


01 11- 




;3l' ■■.;■■/'.■ 


■■y\-&>-- 


102,0 




LDAi , 


,166: 


7 777 




7 77 7 ':,■ 


'.'1:6 7. 


6113^ 




JMP.,3X 


■;1;70:' 


1200 


*3Y. 


LAM ■■. .. ■' 


:Hi'7'v:, 


oVi 1\ 




;3L:1.: ,■■■■'..;,::' 


■>172;.. 


10,20 




LDAi .:■ 


r-lm^- 


■.7.777' 




;.7777^v::; 


::-^TA:. 


6130/, 




; JMK, 3^: 






CKRQANPi /•:■:: 


.;/l:7-5'' 


006.4 : 


V/2C' 


SETi4 ■ 


.•'iv6 : 


,6,6 7,7', 




■3I,-'1 ■;.■.:■: 


-.;17.7' 


.1020 




LbA V :-..': 


''■:2.0a.: 


,102ti'.. 


•:'■■'- ■ ..-, : 


LDAiv ■■:■;; 


:2.pr 


4 2 6' 3: 




: i>TC2I : 


:'2Q2 


42 13':, 




::3:T02H+l 


■' :£i03 


,001 1' 


#20; 


CLK. ,:■'••■: 


■ :.20 4 


4233. 




STC2B , ■;. 


': 2QS 


4236 ; 




:STC2D .■: 


■'2.06 


00,63' 


;■ ..: ' y- 


iiEtia.:-, 


^[201/- 


76 77 


'"".■■■■, '^ 


■2i^'-y-'-V'\': 


,.' 210^ 


0062: 




:SE;Ti2:v": 


:':2.1 r. 


0001 




■ ''-i':-:-.:':-';- 


■ • 212; 


1020 


•'*2H. 


rLDAl :■; 


'■ -2.13-, 


0000,' 




:.0^'^:^■:^';•■.■. 


^^2 1 4 


4224; 


' ■ ,■ 


:STC2/\ ';■ 


.■':2'i5' 


, 0Q6;6 ' 




:,sEXi'6.:.-,: 


^: ■S.IA: 


.6777. 


■ ■-■'■' ' , ■' 


;-:iopp>.': 


'■; .2 1 1 . 


0061: 




\SE7ii-:-''" 


.; '220 


7777' 




'Jill.-. 


- 2'21; 


Op 11:. 


■#2L. 


"'CLR ■ ■:':"■.- 


.\'222-, 


.2002 




;. ADD2 v.,/ : 


. 223- 


1160, 




-ADMilVrvi 


■22 4 


poop. 


-*,2A:, 


■ 0. ■:-■]■:'■■' I'): 


: ;22 5' 


6l47 




■ JMH36.' V 


:, 226■ 


1005 




LDA5 ':;,• 


.;,227■ 


,;.126i;: 




,MUL;i^l; ::, 


..■ 2'3p: 


:045.i:: 




;'ako .■,:•'':'". 


'/^:2^3i 


627^4: 




:■ .JMH2,M •;v;.^ 


.',^232:' 


,1220 




LAMi ■■> 


■: ''2,3 a 


'00 OP 


,#2B: 


-, 0\-;, / ^, > ■■•■ 


;::.234 


■4Pob 




'^vSTCP.:':::.: 


v:':23 5; 


.; 122.0 




■'■.L,AMi-:.v'^ 


.^■^■■■':2 36' 


.;pooo. 


]^fM;p 


\'(y'':'\i\iA 


:-v237;. 


,P226. 




■<X3HX$^^':-: 


■■:^2■40 


:;622i 




{jmp2l': '; 


■■:;2.4l 


.1P22. 




.LDAi2,;:--; 


■^-,242: 


: lOOP, 




: LD A '.■,■■' .: 


,■: ,2 43^ 


:b236- 




„■ 2D :■■„:■':.■. vK^ 


:.-..'2 44 


.02'!i4; 


,:-:;V'- 


RPL4 '-:■■: 


;,',>2 45: 


:..1560' 




■■BCLx:-'':;^." 


■ .246 


P017 


^ '•■"■/'■'■ 


7 ^T ■■<:::¥:. 


,:-^ 247. 


^4236- 




■, STC2D'-:: 


^■; ■2:50 


:22 33- 




'Abb2B-^:' 



4-;-LN 


= 2 51 




''V'\p'.'" ■ 


CONT-'- 




':25t 


02 A A'-/ 


';■ /'ROL 4 •;■::; 


■■■252^ 


J56Q-;' 


.Vr'/lB^OLi :;;,■,■■.:/■., 


■'•25o':' 


7.760 ■: 


:;"';"-V;77 6Q^'. :.■■,::■■., 


■2)!>A' 


22 36; 


■ ■;AUD2D;^:: 


■■'2S'5V, 


106 4 r 


■, STAi4 ;: 


'■:2:56'. 


00:1. !''> 


■■■■:■ ^rCVR-r '■'■': 


■:257;' 


^42 33,- 


■ ;:-5TC2B. .,: 


-2 60:.; 


42.3 6.,;;. 


.■^.■■:,:';STC2D,.,\; 


V 26 1 


0223' 


•,, x,sKi3-; :■ 


:^'262:' 


6212,. 


■.'■■ \.-3M,1^2H','''' 


.263 


.1020, ■ 


f/2l' LDAi- ; ;: 


■:'26.^i: 


7577: 


'■■.v.';-^r2bQ .,":■'; 


'2 6 5 


^2 13 


■ 'STCSH+i 


■■.■26 6,, 


1020 


LDAi 


■■■■267 ■ 


6 30 1 


JMh'2J 


.:'27P 


A'd 6 3 


5TC2I 


■:^2 7 1; 


006 4 


5ETi4 


'\272. 


.057 7 


3H-1 


;,.2 7,3 ■ 


.620 3 


JMl-'20 


-:274., 


1200 


#21^ LAM 


^.•■,275 


0233 


2B 


i;-276' 


102 


LDAi 


-■277- 


J 771 


7777 


■,;>300: 


,62 3 5 


JiV.h'2D-l 


.■.■.■30l". 


6547 


i,'2J JMl^^lA 


./3G,2; 


0415 


KST 


/:30i: 


^6-30 5 


JMPP+2 


•'OSO'-^- 


■602 1 


JK1-'2T 


■,:.-30 5'. 


04 40 


SNSO 


.306 


6367 


JMP2K 


;-307 


006 1 


SETi 1 


■.,■■310 


677 


31-1 


•,■^31 1 


0065 


SETiS 


.,'^:3:]2 


0577 


3h-l 


.^■313 


0062 


SETi2 


::.3i.4 


,4000 


4000 


■315 


6 32 4 


JM:-2R 


■'.,316. 


006 1 


5ETi 1 


'.■3.17 


057 7 


3H-1 


':,.:■ 320, 


0062 


SETi2 


■:;v'32;i- 


4400 


4400 


■:^,:322 


6 32 4 


JK'P2R 


■;:32 3: 


■6301 


JMl^SJ 


'.■■:32 4 


1000 


#2R LDA 


.■■;325. 


.0000 





■•,■.326'. 


;4363 


bTC2Q 


■■.:v327: 


006 4 


SETi4 


^- ';>30^ 


.7677 


21-' 


■;:''33,1-' 


,6 336 


JM)-22:-] 


■ ■:- 332 


, 4000 


#2 5 5 TOO 


.'::ii3^3 


162 


DISiS 


'■'^.3^ A 


,0 1 62 


UI5i2 


..-;'335 


162 


DISi2 


/■;;3 36 


102 1 


LDAil 


■■.•';, ■■337 


0360 


ffHZ 5CKi 


■^.^:340. 


026 1 


KOLil 



I' UON 1 

3^11 0-'i:30 A/JK 

3")'.". 6 3^ib JMj^p + 3 

3^13 U/-ibl Aj-0 

d-^i^i OulV COM 

S-'fS 104U STA 

346 0366 ' 20+3 

347 ^jOOO iJTCO 
3b0 OWia blS2 

351 14-40 bAE 

352 0366 20+3 

353 6357 JMr'P + 4 

354 022 4 X5Ki4 

355 6332 JMH25 

356 6363 JMi^20 

357 2 36 4 ADU2Q+1 
360 0452 LZE 

36 2 836 5 ADD2Q+2 

362 6 3 50 JM»-'P-12 

363 00 10 *2Q K/MT 
So-'t 0001 1 
36:) 7775 -2 

366 0000 

367 006 1 #2K 5ETi T 
370 7777 7777 

37 1 0062 5ETi2 

372 2 77 7 -5000 

373 C063 SETi3 

374 0777 777 

375 0101 5AM1 

376 0017 COM 

377 4000 STCO 

400 102 1 LDAil 

401 0343 i3CH3 

402 2000 ADUO 

403 162 DISi2 
/-'04 101 iiAMl 

405 4000 STCO 

406 1023 LUAi3 

407 0343 isCKS 
-MlO 2000 ADDO 

411 0142 DIS2 

412 0202 Ai3K2 

413 6 37 5 JMt^P-16 

414 6 30 1 JiMi-'2J 

415 0535 //2U KBDi 

416 0246 H0L6 

417 4433 STCP+14 
420 0555 KBDi 

42 1 02 43 X0L3 

422 1 1 40 ADM 

423 0433 P+10 
42^' 0535 KBDi 
42::> 1140 ADM 

426 0433 P+5 

427 1620 BSEi 
430 4000 4000 



VS ■; :i-.N^Vi3 1:; 



;;p-^.;-CO(VT ' 




'431- vyi-'iiaj 


STCP+2 


.-^32' U.70.U 


KUC 


,43o~'400U 


4000 


.43.4: 100 U 


LDA 


::^3b.:o433 


P-2 


: 4364 444 


SNS4 


:V5;3y:23o4 


AUD2tl+l 


'■440^ '1620 


BSEi 


■4^^ 14: 50 00 


5000 


■ 4'42/ 444 4 


STCP+2 


::^43/'.0700 


KDC 


■444. 5000 


5000 


4'4S' 044b 


SNS5 


.^446 6 301 


JMh'aJ 


447; 006 1 


SETil 


: 4 SO.; a 37 7 


2377 


: 451; 0062 


SETiS 


,'452-7 37 7 


-400 


: 453 106 1 


SlAil 


^'454':Q222 


XSKi2 


.: 455: 6 453 


JMPP-2 


V 4S6 .6 30 1 


JMH2J 


: ,457: 0535 


#2V KBDi 


;.^60 0321 


RORil 


:':^61:;GS3 5 


KBDi 


■>ii62 1620 


BSEi 


■463,0040 


SCRO 


:;.^6 4i 4472 


STCP+6 


.,■46 5 OOol 


SETil 


/;466:^ 377 7 


3777 


•467 0062 


SETi2 


.■470: ;6 77 7 


-1000 


. -47 1 1021 


LUAil • 


: ''472 -0340 


SCR 


;■ 473; 0452 


LZE 


, :;v^74-00;i7 


COM 


,47 5 1101 


ADAl 


■47^ '0470 


AZEi 


■477. 4543 


STCIY 


'500,4041 


STAl 


■':' 501;: 0222 


XSKi2 


,j;:'502:,.6471 


JMPP-11 


-503'^ 6 301 


JMP2J 


^■504:0043 


,-'/4C SETS 


;v:5O5.;0OOO 





>i;5b6:; 0061 


SETil 


:.;,;:5b:7 ,.3777 


3777 


■;,5id;ooi 1 


CLR 


/. '5,11 '10(^1 


STAil 


^^mz 020i 


XSK\ 


,'':.:5a3 :.651 1 


JMPP-2 


.■>5r4: 006 1 


SETil 


:';.'h^lS;,0777 


777 


■:v:5;l6::0062 


SETi2,; 


vrsiv ;2^77 


2777 


;,.;;52!o> 1 02 1 


LDAll 



LN=b2l 






I' CO NT 






b2l 1062 




iiTAi2 


byy 020L-J , 




X!5K2 


623' ebko' 




JMHp-3 


b'dA 6 003 




JMt-3 


b25 0710 


//IX 


KUUU . 


b2 6 0270' 




01270 


52 7 6 37b 




JMP375 


b30 0b3b 


# 1 W 


KBDi ' 


531 2543 




AUDIY 


532 0243 




W0L3 


b33 4543 




5TC1Y 


534 lb20 




SROi 


535 3333 




3333 


536 6b30 




JMh- 1 W 


537 0535 




KBDi 


540 2543 




ADDIY^ 


541 4543 




STCIY 


542 0704 




WRC 


543 0000 


lyiY 


0000 


54/J 001 1 




CLH 


545 4543 




STCIY 


546 6301 




JMP2J 




[SCOPE SCALED .c:' ■^:; 




CKNOB VERTICAL]- s. 




CKNOBl HORIZONTAL] \ 




CSEPAKATION 1 00-5003 


547 0047 


.-yiA 


SET7 


550 0000 







551 0100 




SAMO 


5 52 02 41 




KOLl 


553 4 57 5 




STCIM 


554 0102 




SAM2 


bbb 02 41 




ROLl 


S56 4006 




STC6 


557 1120 




AUAi 


560 0144 




144 


561 1060 




STAi 


562 0000 


#1N 




563 0343 




SCH3 


564 2575 




ADDIM 


565 0146 




DIS6 


566 1520 




SROi 


567 5777 




5777 


570 6572 




JMl^P+2 ' 


571 6007 




JMh^7 


572 001 1 




CLR 


573 2562 




ADDIN 


574 65:>7 




JMHP-15 


575 0000 


#1M 


3H=600 
3:i;=70p •' 



EXIT PROGRAM HIST03D 



/iJVAtVE:., 1 


^■INE::;/.: 


■ VALUE 


LINE 


lA ■. 


000 r' 


1406 :,;■; 


7L 


11 25^ 


1317 


IB • 


0002 


1407 ,: 


,7M 


0766. 


;i 151 


,.■10 ■ 


000 3 •; 


1410; ;i; 


'^-/R 


1 1 5.5 , 


1352: 


•ID : 


0U07 


1416':;; 


; 7S; 


;l 171; 


::i,367: 


J e: 


00 io' 


1417; ;, 


.;,-7:f.' 


07 44 


1 123 


1 F.'\ 


1200' 


,1377 ;:• 


/r7U 


1126 


1323 


' i-K ■ 


0006 


1415 •; 


'v7A'^ 


i.ri3 


1276 


■\r 


0004 ■ 


;i:4l2 ;:': 


; :7V: 


|l:i;4, 


1277 


:iy.: 


000 5:' 


1414.," 




■■' ' ';-/ ' '.:. '"'■: 




2 A' 


156. 


207 








:2.B' 


062 1 ■ 


746 ■■ 








j^c: 


''0202' 


. 237 V 








'SE 


0315^ 


361;;:; 








2F 


105 


123 








2G 


02 14; 


-;2 5 1.,': 








2H 


0441.^ 


-'515,:' 








21 ■ 


0232 


•..■2,6 7 V; 








■2 J 


06 54: 


1,00 4 : 








2K ■ 


03 50 ; 


; :414; 








2L 


.0327,; 


v-,3,7 3:' 








•2M . 


,0 1 1 3;., 


:':1.35,:. 








:2N; 


00 55, 


':'r6i':.y 








;.2:r': 


(3.502^ 


''561% 








2V 


534:: 


■6 34;, 








.2 Iv : 


06 1 2.' 


■'■■'73,1::; 








2 A 


060.4,; 


,721 ': 








2 Y 


057 6 ■ 


;;7io.; 








:2ii. 


0570:; 


'■\6n':S 








'.3B 


1011; 


Xll.Ai: 








.30; 


102^ 


12b7"; 








3D 


10 43' 


1 226^' 








■■■3E; 


.10)33 


■1216 • 








.•3F 


■1062 


.1245 








: 3G 


1071 


12,54' 








■3h, 


10 55. 


12 40', 








3 1 


■ 1076: 


126 1 ; 








3 J 


07 56 


1 140: 








:3M. 


; 66 3 


■ 102 1 








■.3N 


.07 54 


1133, 








i30 


•07 5 5 


.:1 1 3 5> 








>;3K 


.1 1 1.2^ 


127 5- 








-3Q 


:1 11 i: 


:i27-4i- 








'SH 


1 177: 


•1376 • 








3S 


07 5 1^ 


?H30- 








;-3v 


,:07S&; 


■1131 : 








.■■3W 


0-7 53' 


ai32i; 








:-'3'X. 


1 i 07', 


1272.; 








■■3y: 


vll 10- 


1273 








::ta 


.1115 


,1300> 








' '7 B 


'l 116 


.1302' 








:70 


1122 


131:1;, 








• 7D 


. 1 142 


1337:; 








':'7:e 


:i 1 17. 


:1305f 








■:\;7F 


1 120, 


v-;l'307' 








:7G 


'.1 12 1 


1 310; 








:7h 


0655 


;rod5;" 








7:1 


06 57 


10j4: 








,-7.U 


.;ii23: 


:V.];3.i;S-' 








:-7K 


>Vi 124 


>:13,16-: 












1 ' LN= 1 
P COMT 

HO 

07 11 HCGu 

1 22/-! 1 ,2 1841 
. 2 6020 JMl-'20 

[PROGKAM FOR PLOTING THREE' DIMENSIONAL 
■L HI 3T0URAMS ■ OF ' 9RS. WIDTH VERSUS «-0 
^C INTERVAL .•/.■:;;-■■ ^'}r:::,::,[ '.. 

■[INITIAL-- ENTRY' IS. 'at LOU .20i- WHICH CALLS 
^(:A:''WONlTER;UHROGRAIvi.'REGJUIK^l^ THE. 
::tyOLLdwiNG>KEVBdARD INPUT.'. .^ ; 
i'^C '1 .'• ■ -a;- bi(3rT.^STARTl'NG BLOCK-.NUMBER . 
■ tS^Ik. two: DIGIT 'NUMBER OR .LETTER A.» FOR 
[NUMBER OF HISTOGRAMS' DESIRED OR ALL ON 
[TAPE. 





C3. 


VIEWS DESIRED. 




[ 


F= FRONT 




[ 


R=REAR 




[ 


B=BOTH 




[4. 
1 


1 DIGIT SCALE FACTOR. 




L 

[FILED AS HSTPLOTl 

[ 

L ENTRY 








Q20 


20: .0 535 




KBDi [BLOCK ' NUMBER 


.21. 02 43 




R0L3 


22, 4001 




STCIA 


23 0535 




KBDi 


2 4 200 1 




AUDIA 


25 0243 




R0L3 


26 4U01 




STCIA 


27 0535 




KBDi 


50 2 001 




AUUIA , 


31 5123 




STC7 J [ STARTING .BLOCK NUMBER ■ 


32 0535 




KBDi [* orHJSTOGRAMSODE'Sl'RED, 


33 1460 


* 


SAEi 


34 002 4 




24 [A 


35 6041 




JMP P + 4 


36 0070 




SETilE 


37 6777 




-1000 


40 6047 




JMPP+7 


41 0243 




R0L3 


42 4001 




STCIA 


43 0535 




KBDi 


44 2001 




ADDIA 


45 0017 




COM 


46 4010 




STC 1 E [ NUMB:ER ■ ttESI REL) ;: 


47 0535 




KBDi tF,R/OR; B'-:VIEW-:f ;: 


SO 512 4 




STC7K 


51 0535 




KBDi 


52 1120 




ADAi 


53 0340 




SCRO 


54 4655 




STC7h .... ,, 


' 


[PLOT SELECTIQN'LOGIC ■i.^r: . ... 


55 5125 


//2N 


1 STC7L £ Z ERO ■ MAX :iPLQT; INDICATOR 


56 3124 




ADD7K ■■'■'■'■■''■- 



LN=:71 



"■p-- 


coivr 






b7 


1460 




iJAEi 


60 


00 4 5 




45 CR 


61 


6063 




JM)-t' + 2 


62 


6105 




JM/-2E CREAR VIEW REQUESTED 


V 




CFRONT VIEW i^LOT 


63 


001 1 




CLR 


6 A 


3 123 




AUD7J 


65 


51«1 




5TC7G 


66 


0061 




5ETi lA 


67 


6202 




JMP2C 


70 


6156 


t 


JM1^2A 


71 


1000 


LDA 


72 


1 124 




7K 


73 


1460 




SAEi 


lA 


0025 




25 CB 


75 


6113 




JMJ-'2M 






CSE 


T h-EN h'ROh'ERLY FOR NEXT PLOTC 


76 


001 1 




ULR 


77 


5107 




5TU3X 


100 


1020 




LUAi 


101 


7177 




-600 C HORIZONTAL GRAPH Sl^ACING 


102 


51 10 




STC3Y 


103 


7126 


. 


JMP7U C}"EN UP 


104 


6766 




JMP7M 






CREAK VIEW J^LOT 


105 


001 1 


#2F 


CLR 


106 


3123 




ADU7J 


107 


5121 




STC7G 


110 


006 1 




SETilA 


1 1 1 


6315 




JMP2E 


1 12 


6156 


C 
CUi" 


JMP2A" 






DATE POINTERS. CONTROL 






CHI5T0GKAM iJI^ACING AND EXIT. 






CS^^ACE t-APER l^ROl-'ERLY 


1 13 


001 1 


M2^, 


CLR 


1 \A 


51 10 




STC3Y 


1 ItJ 


3124 




ADD7K 


116 


1460 




SAEi . , ^-^ 

25 CB ' \ ' 


1 17 


0025 




120 


6124 




JMPP+4 


121 


1020 




LDAi 


122 


0600 




600 


123 


51 10 


' 


STC3Y • , 


12-^1 


3125 




ADU7L 


125 


1 120 




ADAi 


126 


0310 




310 C2 INCH SPACING ' ■ " ^ 


127 


5107 




STC3X 


130 


7126 




JMP7U CPEN UP , 


131 


6766 




JMP7M 


132 


0230 




xsKiiE ■ '^ • ' ; , ." ,, 


133 


6135 




JMPP+2 


134 


7200 




JMPIF C GO TO X 


135 


1000 




LDA C UPDATE TAPE BLOCK COUNTER 


136 


1 123 




7J 



a 



}:^,'UN=;i6'i 


'■■' '■: 




■ P'. ''CONT:; 






yvtij-iicio- 




' AuAi'^ 


:i,40 0016 


■'.■.-■;'■ 


vitj;;/;-. 


:XaC 1040 




; sta::' 


.4.^2 '1 123' 




;.7J:'v:;' 


M3' 1 120 




AUAi 


1 AA AOOO 




4000 


lAb 10 AO 




STA 


lAo 1 bO 




p + 2 


\A'i 0700 




RDC C CHECK FOR END OF DATA 


IbO 0000 







Ibl 1000 




LDA 


152 2000 




2000 


153 0451 




AJ^O 


154 7200 




JMKIF C ON NEG 


155 6055 




JM^^2N 




[PLOT HISTOGRAM ROUTINE 




[AT 


ENTRY . . . 




C 


lAsJUMJ- COMMAND TO PROPER 




£ 


VIEW PLOT ROUTINE 




t 


7G=STARTING BLOCK NUMBER FO 




C 


HISTOGRAM 




C INITIAL SETUP 


156 1000 


//2A 


LDA CSAVE RETURN 


157 0000 







160 1060 




STAi 


161 0000 







162 006 4 




SET! IP 


163 1600 




1600 


164 001 1 




CLR 


165 5117 




STC7E 


166 5120 




STC7F 


167 51 13 




STC7X 


170 5114 




STC7Y 


17 1 5122 




STC7C 


172 7 142 




JM1-7D [PEN DOWN 




HERO SHADOW TABLE 


173 001 1 




CLR 


174 0062 




SET! IB 


175 1577 




1577 


176 1062 




STAi IB 


177 0202 




ASK IB 


200 6176 




JMP P-2 


201 6001 


C 
LbEl 


JMP 1 A 




'JTION FOR PLOTTING 




L HISTOGRAM VIEW 1 


202 1000 


/.■2C 


LDA [CREATE PROPER QNIBN 


203 1121 




7G 


204 1120 




ADAi 


205 4000 




4000 


206 42 1 4 




STC2G 


207 0066 


, 


SETi IK 


210 7775 




-2 ', \ 


211 0061 




SETilA 


212 7773 


. 


- 4 , ■•: 


213 0720 




RDCi 



i':,:^'L;N=Hbl'.:- 




■■^;':ij;.;:;CpNTV;: 




■ Ir:!' !''';■. 6 6 OX)', 


/f2G.o .^y ■■•!;■■;. 


\.i-n''r-::\(d\(r] 


py. .■inf^ .•':':■■:■:.; 


.21,6 02 W:; 


::^^--..2<^m'^?r 


:;;-vi7:,: ri20; 


■;=■■:;: V ::; Ab A i ■.:;•■;;•, 


2'AO'.. lOUl.' 


':;;■:.... i(ifi'i:i ■■;■:. :;: 


]22l 4^}^ 


'■.■.■■■.'aTczG:-': 


a^a oii!2i 


,;;^:vi-' Aiii<l,.lA':V 


2 23 62)3 


:■■.:■/''■■ A' -JMpa 6- 1:0 


:2K4 07 03, 


■■"■■'■;'MTB:;"X'''"r 


.^^S" 0000 


■.^■^^-^ 0' ■■:';■■■ y' -;-■'■.■" 


■ 2i^6"006 5^ 


:\ y-SETilQ: 


"227 3777 


377 7 


230 0062 


iiETilB 


231 7677 


'-100 


2 32 102b 


i>21 LDAilQ •[ UPDATE DATA 1-OINTER 


233 66b-i| 


JMP2J -CGET DATA h'OINT' 


234 3120 


AUD7F 


23b lO^iO 


STA 


236 0001 


lA 


2 37 0017 


COM 


240 312b 


ADD7L • 


241 047 1 


' Al-Oi 


242 6246 


JM)-'P + 4 


243 0017 


COM 


244 3125 


ADU7L 


245 5125 


i5TC7L 


246 6534 


JMJ-2V CJ^LOT ONE BAR 




[UPDATE SHADOW TABLE 


247 1004 


LDAIP 


250 0017 


COM 


251 2001 


ADDIA 


252 0451 


APO 


253 6256 


JMP P+3 


254 1104 


ADAIP 


255 1044 


5TA1P 


256 6621 


JMP2B [UPDATE SHADOW POIN.fER 


257 1000 


LDA 


260 1115 


7A 


261 0341 


SCRl 


262 2001 


AUDIA 


263 4003 


STCIC ' . 


264 1004 


LDAIP 


265 0017 


COM 


266 2003 


ADUIC 


267 0451 


APO 


270 6273 


JMpP+3 


271 1104 


ADAIP , ' ' . 


272 1044 


STAIP 




[CHECK LOOP COUNTERS' 


273 0222 


XSKilB [ONE LINE 


274 6313 


JMPP+17 


27b 0205 


XSKiy [112 OF HISTOGRAM 


276 631 1 


'JMP,P+13 


277 0226 


XSKi IK 


300 6302 


, JMP P+2' 


301 6161 


JMP2A+3 [RETURN 



i> COiVT 

30£i 6b02 JMi" 2R 

303 1000 LUA 

304 021^ 2G 

305 1120 AUAi , 

306 3777 3777 CKESET t)N'IBN 

307 aPAA STCSG 

310 6211 JMl-'2G-3 CPLOT 2ND HALF OF HISTOGRAM 
CSET U)^ FOR NEW LINE 

31 1 6b02 ' JM^2R 

312 6230 JMK2I-2 

C UPDATE SHADOW l^OINTER AND GET NEW DATA 

313 662 1 - JMJ-8B 

314 62 32 JM»-'2I 

I 

[SECTION FOR PLOTTING 

[HISTOGRAM 'VIEW 3 

315 1000 //2£ LDA [CREATE PROPER ONIBN 

316 1121 7G 

317 1 120 ADAi 
'320 4004 4004 

321 432 7 STC2L 

322 0066 SETilK 

323 7775 -2 

32 4 006 1 SETilA 

325 7773 -4 

326 0720 RDCi 

327 0000 //2L 

330 1000 LDA 

331 0327 2L 

332 1120 ADAi 

333 1001 1001 

334 4327 STC2L 

335 0221 ASKi lA 

336 6326 JMP2L- 1 

337 070 3 MTB 

340 0000 

341 0067 SETilD 

342 0000 

343 0062 SETilB 

344 7677 -100 

345 6351 JMPP+4 

346 0062 SET! IB 
3^7 7677 -100 

350 1027 #2K LDAilD [ UPDATE;:":D ATA; POINTER ': 

351 1000 LDA 

352 0007 ID 

353 00 17 COM 

354 1 120 ADAi 

355 3777 3777 

356 4005 STCIQ . 

357 6654 JMP2J [GET DAtA.;:i^bINT■::V■ 
360 3120 ADD7F 

56 1 1040 STA 

362 0001 lA 

363 0017 COM 

364 3125 ADD7L 



LN=/j31 




P COM 




365 0471 


Ah-Oi 


366 637^ 


UMi^P + 4 


367 00 17 


COM 


370 3125 


ADD7L 


371 5125 


bTC7L , . 


372 6 53 4 


JMhSV Cl-LOT ONE BAR 




CUI^DATE SHADOW TABLE 


373 1004 


LDAIP 


37 4 0017 


COM 


375 2001 


ADUIA, 


376 0451 


AJ-'O 


377 6402 


JMhP+3 


400 1104 


AOAIJ- 


401 1044 


STAIP 


^C2 6 62 1 


JKP2BCU1-DATE SHADOW POINTER 


4U3 1000 


LDA 


40^ 1115 


7A 


405 0341 


SCKl 


406 2001 


■ ADDIA 


407 4003 


bTC 1 C • 


410 1004 


LDAlh* 


411 0017 


COM 


412 2003 


ADDIC 


4 13 0451 


APO 


414 6^17 


JMi^P + 3 


415 1104 


ADA IP 


416 1044 


STAIP 




[CHECK LOOP COUNTERS 


417 0222 


ASKilB CONE LINE 


420 6 437 


jMpp+17 •:::-:":: 


421 0207 


XSKID CI 12 OF HISTOGRAM : ;; 


422 643b 


JMPP+13 


42 3 0226 


XbKilK 


424 6 426 


JMHP+2 


-^(25 6161 


JMP2A+3 [RETURN 


426 6 502 


JMP2R . 


427 1000 


LDA 


430 0327 


2L 


431 1120 


ADAi 


432 3767 


3767 C RESET QN|BN 


433 4327 


STC2L 


434 6324 


JMP2L-3 [PLOT 2ND HALF OF HISTOGRAM 




CSET UP FOR NEW LINE 


435 6502 


JMP2R 


436 6346 


JMP2K-2 




[UPDATE SHADOW POINTER AND GET NEW DATA 


437 662 1 


JMP2B 


440 63 50 


JMP2K 


' 


C 

C ROUTINE TO PLOT ONE SPACE 




CHORlZONTALLY ALONG ISOMETRIC, 


441 1000 


//2H LDA [SAVE RETURN 


442 0000 





443 1060 


STAi 


444 0000 


• 



V li\--l>iM 



l» 


COM" 




AA^ 


0063 


5h:ri 10 


AA6 


777 5 


-2 
L CALCULATE HALF DISTANCE 


AAl 


1000 


LDA 


AbO 


1115 


7A C INCREMENT SIZE 


A5\ 


31 14 


' AUD7Y Cj^RESENT Y LOC 


A^'i 


51 10 


bTC3Y CNEW Y 


Ab2 


31 15 


AUD7A 


AbA 


0341 


SCRl 


455 


31 13 


ADD7X [PRESENT X 


456 


5107 


STC3X CNEW X 


Abl 


6766 


JMr'7M 


460 


0223 


ASKilC 


46 1 


6470 


JMt^P + 7 
CUl-DATE BASELINE POINTER AND EXIT 


462 


1000 


LDA 


463 


1 120 


7F 


464 


3115 


ADD7A 


46 5 


5120 


STC7F 


466 


6 654 


JKP2B+13 [RESTORE SHADOW POINTER 


467 


6444 


JMP2H+3" [R E T U R- N ' 
[CALCULATE 2ND HALF SHADOW INFORMATION' 


470 


6 62 1 


, JMP2B [UPDATE SLADOW POINTER 


47 1 


1004 


LDA1P[IS PRESENT POSITION IN SHADOW 


472 


0017 


COM 


473 


3113 


ADD7X 


47 4 


0451 


apo 


47 5 


6500 


JMPP+3 


,476 


7 142 


JMP7D [NO. PEN DOWN 


47 7 


6501 


JMPP+2 


500 


7126 


JMP7U [YES. PEN UP 


50 1 


6447 


JMP2H+6 
[ 
[ 

[RESET PLOT TO NEXT ISOMETRIC 
[LINE 

[ 7E = ISOMETRIC LINE COUNTER. 
C ZERO AT INITIAL ENTRY. 


502 


1000 


//2R LDA [SAVE RETURN 


503 


0000 


• 


504 


1060 


STAi . ' ' 


505 


0000 





506 


7126 


JMP7U [RAISE PEN 


507 


001 1 


CLR 


510 


5107 


STC3X 


511 


3115 


AUD7A * ■' 


512 


0017 


COM 


513 


1240 


MUL 


514 


1 i 16 


7B 


515 


3117 


ADD7E 


516 


10 40 


STA 


517 


1117 


7E 


520 


51 10 


S1C3Y 


521 


6766 


JMP7M 
[ZERO BASE LINE POINTER 


522 


001 1 


CLR 



l.:0;;-'.LN=6;.l,l 




P CON 1 




b23 b\'.iU 


5TC:7f' 




LUHDATh: SHADOW TABLE AND POINTER 


b2A \OAA 


5TA1P 


b25 663A 


JMP2B+13 


b{.^6 00 1 1 


CLR 


b27 104-4 


5TAli- 


sao 66 J ^1 


JM1^2B+13 


b31 0011 


COH 


532 \OAA 


iiTAlP 




CK E 1 U R N 


533 6505 


JMJ^. 2R + 3 
C 




C 

LKOUTINL TO PLOT ONE HISTOGRAM BAR 




LAT ENTRY 




C lA = A VALUE OF HISTOGRAM PEAK 




C TO BE PLOTTED. 




L IP = POINTER TO MAX VALUE OF 




C SHADOW TABLE BEING REFERENCED 


S3A 1000 


//2V LDA [SAVE RETURN 


535 0000 





536 1060 


STAi 


537 0000 







[SET Y POSITION 


540 1000 


LDA 


541 1114 


7Y 


542 5110 


STC3Y 




[SET FLAG IF NEW PEN 


' 


[POSITION IS IN SHADOW 


543 4003 


STGIC 


544 1004 


LDAIP 


545 0017 


COM 


546 2001 


ADDIA 


547 1120 


ADAi 


550 0001 


1 


551 0471 


APOi 


552 6554 


JMrP+2 CNO 




EYES. MAKE IC MINUS 


:553 4003 


STCIC 




[IS PRESENT PEN POSITION' IN SHADOW 


554 1004 


LDAIP 


555 0017 


COM 


556 3113 


ADD7X 


557 1120 


ADAi 


560 0001 


1 


561 0451 


APO , 


562 6576 


JMP2Y [YES 




[NO. IS NEW PEN POSITION IN SHADOW 


563 1000 


LDA 


564 0003 


IG 


56 5 451 


ArO 


566 6612 


' JMP2W [YES 




[NO. PLOT NEW LINE ' ■ , 


567 7 142 


JMP7D' [PEN DOWN 


570 1000 


f/2Z L[;a 


57 1 000 1 


lA 



■.T^iy:;:■■■i:;^:-,...■i■V^ 



■'■■';'''■■■■ ''v 


coN/i: 
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■5 1 'rlO' 


t Ui-'lJATt:- SKADOW • TABLE , AND .J:'OI NTEK ;, 


^524- 


iOAA 


■ '-■.:■ ■ '■■iST^mr }:.::'■■:: :::.--"■:-;■>;•■::, ■^;.-,: '■..■■;;, '^ / '; ■, ■:-■■■■.■ 


^■S2 §r 


\663A, 
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■ 526 ■ 


00 1 1' 


'■■,':' • CLR, ■ ,/-■■;■■ ■■■■,■'■■:;'•:. ■v-^-v .■■,,■•::■■■■, V'-., ; ;;■■-■;■ 


S27 


■IDAA' 


':. ' ■■.'STAir '>---V^" ■:.■>-■■;■■■■■.■.:■■,?;■ '■'■■-,■.'■■■■■■•.:''.■;/■:..■■': 


;530- 


66 3 4 


■jMp2B+'i3"'-;' >-■.■,■ :..,:■ -v ■:' ::.:,.:.■■■• .■■.,.:■:.: 


v53iV- 


.00 11; 


,■■, ■.'\.'coR..'.' •. '.■■■•::\v;;.;^''.:\'j -,■,,■• ■^' :,:■■,, ■:,';:-,■•,■ \^,'': 


■•S'32>: 


;i;.0^-4'.; 


:.-:-^.'^:'STAi>;v\-;-r.V;;/;::::.;y.:;[:--:- 'i. ■.■.':Vy:::.. ■:;■'■ ..v/; 


'^3,3:, 


6 505 


;vv ■jMP:;'2f^+3::'>v'-;^;.'C">:-;; 

t;' '■■:':-''V^:''. :"■• ■■,.;,■:■ .■■■,'■■■„„':.- ' ' ^ ■ ^ ' ..■ \ ''"'.''■ 

I ''■■"-■'.■■-"■ ' ■' ■■"■'■• ■'■''"■' >: '^ ' ' '■ ■ ' ' 
.LKOUTINE TO .h-LOT ONE HI STOGRAM; BAR 
•X AT\ ENTRY/' r>/ ■ \ ' . ■■, .:",''- ■ 

C.IA. =;;x :VAHJE: OF:;HISTbGRAH,.,KEAK v;• 
;C'■-'.■:::•■^.^:,T0■.■..8E^HL0TT.ED,., rvs'-'V', ,.■; /-.;■:-. 

(. ir ■ = :P0 1 NTER TO 'MAX VALUE OF 

C .vV SHADOW TABLE BEING REFERENCI 


,534- 


iooo\ 


:*2V LDAC SAVE RETURN:; 


5-35- 


OQOO 
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^■55/i 


■I 004' 


": ,:;. : ^DA It^^:^-^::^:^: ••;'■'•'• V^V, •V,':V.^V '^^':r v -^ ■"•■■:■' .■ 


,-555 


001 7- 


■../. ■■■\,"cdM': ''■;j'\-:-y':':[..\-yO':\ ■''■^''■■'■^■'■■:'-i'--- ''{''■■ 


:S56 


3113. 


/>- .. ,-;:ADD7X\''V--'j:, -,■:■::.:'■";•. ■•:•'■; ';. ■ ■/.■■■.;".;■ 


;557 


1 120; 


;•,■ ■ ■■■■;,:. ADA 1; .. ■;■.'■:'■,■■, /•''■,/■■ ,■ :^' , /^ ■■■■■■^■/V;- ' ;, -/; ':■:•;■■ V , \" 


560 


,000,1 ■ 


.'■^■,'.-'T,-.„, ■:■'}':■ ' ^'-.■,:-.V:;:*:;,'; ■;■■,' '..' ■: V,\:Vw, ■- .,,'. V,',^.: 
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045'1/ 
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■562/ 


'■6 5J6 


':/■-, ■,.VJ,Mh2VyX'YES .■■■■•■■■,'..■■' --.-t- '■:,:■/■::■ '■ , 
IN0.;'JS\NEW ;P en; htiSiTIGN 'IN' SHADOW 


,563 


1000 


■^' LDA';- '■:■,■ \;\.-i:''\ ■■, V.",' 


56 A 


0003 
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.;566, 
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.:;-:JMh.7b';EP'EN; ^DOWN :::'■■■;:■.•': ;Ia:- "•',');, ,./v:;;i 
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IV:::; LN=70 1::' 



: P: CONt; 






bl\> 5 107 




STC3A 


b73 6766 




JMP7M 


57-^1 6 4/) 1 




JMP2H tPLOT HORI-iONTAL ISOMETRIC 




CR E T U K N 


bVb 6b37 




JMP2V+3 




CI^KESENT POSITION IN SHADOW 




L IS 


NEW POSITION ALSO 


576 lUUU 


//2Y 


LDA 


57 7 000 3 




10 


600 047 1 




APOi 


601 660/1 




JMP2X [NO 




[BOTH HKESENT AND NEW PEN POSITIONS 


602 7 126 




JMP7U [PEN UP 


603 6570 




JMP 2'd. 


, 


CPKi 


:SENT PEN POSITION IN SHADOW 




[NEW PEN POSITION NOT IN SHADOW 


604 7 126 


iiZ'A 


JMP7U [PEN UP 


605 1004 




LDAIP 


606 5107 




STC3X 


607 6766 




JMP7M 


610 7 142 




JMP 7D [PEN DOWN . 


611 6570 




JMP 2Z 




Ct-RESENT PEN POSITION NOT IN SHADOW 




CNF' 


.'.' i-OSITION IN SHADOW 


612 1004 


#2W 


LDAIP 


613 1040 




STA 


614 1 107 




3X 


615 7 142 




JMP7D [PFN DOWN 


616 6766 




JMP7M 


617 7126 




JMP7U 


620 6570 


C 


JMP2Z 




C 

CROUTINE TO INCREMENT SHADOW POINTEF 




C EN 


TRY POINTS 




C2B 


= INCREMENT IP PLUS 1 




C2B 


+13= INCREMENT IP MINUS 1 


621 1000 


#2& 


LDA 


622 0000 







623 1060 




STAi 


624 0000 







62 5 020 4 




ASK IP 


626 6632 




JMPP+4 


627 0064 




SETi IP 


630 1600 




1600 


631 6624 




JMP2B+3 


632 1024 




LDAilP 


633 6624 




JMP2B+3 




[DECREMENT ENTRY 


634 1000 




LDA 


635 0000 







636 1060 




STAi 


637 0000 




, 


6 40 1000 




LDA 


641 0004 




IP 


6 42 1460 




SAEi 



IN. SHADOW 



•li: 



2 LN-77i 




V 


UON'l 




6A2 


1600 


1600 


6AA 


66 50 


. JMPP+4 


6/Jb 


006/1 


^ETili" 


6A6 


1777 


1777 


6A1 


6637 


JMPP-10 


6 50 


1 120 


ADAi 


651 


7 7 7 6 


-1 


6 52 


4004 


aizxt" 


653 


6637 


JMh'f>-14 
L 
LGET DATA KOUTINE 






654 


100 5 


//2J LDAIQ ' 


655 


0000 


/HH LiiCALE RIGHT 


656 


6000 


JMi-O 
C 
Ct^LOT ROUTINES 






• 


- 


L INCREMENT ' 






C BLOTTER 






LAND A^Y SH 


657 


4663 


*7i SIC 3M 


660 


2000 


ADb 


661 


4751 


STC 3S 


662 


1520 


SROiCTEST FOR -Y 
L CARRIAGE RIGHT 


663 


0000 


,-?3MCKEY WORD 


664 


6702 


JKhP+16 


665 


31 14 


ADD7YCTEST FOR 
CJ-OINTS LESS THAN OR 
LEOUPL LOWER BOUND 


666 


2754 


ADD3N 


667 


04bl 


A>^0 


6 70 


6676 


J^i)-p + 6 


671 


001 I 


CLRtTEST POINTS 
C GREATER THAN Ul^t^ER 
C BOUND 


672 


31 14 


ADD7Y 


673 


2755 


ADD30 


61 A 


0451 


Ar-O 


675 


051 1 


OhRl ICMOVE 
[CARRIAGE RIGHT 


676 


001 1 


CLR 


677 


3114 


ADD7YC DECREASE 
Ci^OINT INDICATOR 7Y 


700 


2752 


ADD3V 


701 


5114 


STC7Y 


702 


1500 


SROCTEST FOR +Y 
[CARRIAGE LEFT 


703 


0663 


3M 


704 


6 72 4 


JMPP+20 ' 


705 


31 14 


ADU7Y[ TEST 
[POINTS GREATER THAN 
[OR EWUAL UPPER BND. 


706 


2755 


ADD30 


707 


2 7 53 


ADD3W 


7 10 


47 1 


APOi 


71 1 


6720 


JMPP+7 



13 LN=1061 



l» 


CONT 






1[2 


001 1 




CLKl. TEST POINTS 






LLEii5 THAN L0WE;K BNU 


713 


3114 




ADD7Y 


•flA 


2 7 54 




ADD3N 


71b 


27 b3 




ADD3W 


7 16 


0471 




AKOi 


717 


0512 




0HR12[M0VE 






CCAHKIA6II LEFT 


120 


001 1 




CLK 


721 


3114 




AUD7Y[ INCREASE 






Cj^OINT indicator 7Y 


722 


2753 




ADD3W 


723 


51 14 




STC7Y 


724 


1500 




SRO[TEST FOR + X 






ilDRUh DOWN 


725 


0663' 




3M 


726 


6734 




JM)^P + 6 


727 


0510 




Ot^RlOCMOVE 






LbHUM DOV\)N 


730 


1000 




LDA 


731 


1113 




7 A 


732 


2753 




ADD3W 


7 33 


51 13 




STC 7X 


734 


1500 




SRO[TEST FOR -X 






L LiK DM Ut 


735 


0663 




3M 


736 


6 7 44 




JM^'P + 6 


737 


0507 




0^'R7CM0VE 






CDHUM W 


740 


1000 




LDA 


741 


1113 




7X 


7 42 


2752- 




ADD 3V 


743 


51 13 




STC 7X 






Cf^LOT DELAY 


744 


1020 


*7T 


LDAi 


745 


0124 




124 


746 


2 7 52 




ADD 3V 


747 


0450 




AZE 


7 50 


6746 




JMh P-2 


751 


14-^^0 


v35 


S RETURN 


7 52 


7776 


/,3V 


-1 


753 


0001 


^^'31'.' 


+ 1 


7 54 


1777 


//3N1777CY-L0WER 
L BOUND NOTE SIGN 


755 


6000 


//30 


-1777LY-Ul^hER 






[BOUND NOTE SIGN 






[MOTION TABLE 


7 56 


7776 


i^'3J 


-U-Y 


757 


7766 




-11C-X*-Y 


760 


7767 




-lOC-X 


761 


7765 


- 


-12C-X,+Y 


762 


7775 




-2[+y 


763 


777 1 




-6[+X,+Y 


764 


7773 




-4C+X' 


765 


7772 




-5[+X,-Y 


/ ' 




LINTERi-OLATED MOTION 



■.,r'-,i:.vt.K^.{i^i>i' 



.■;i:P^ .-■CONl 




.■766";:U07 6 A7M bK'iilfi 


;ri&7.[\:n(^i 


-10 


'■■770 007 b 


bLTilb 


; '771-777 6 


-1 


:'7J2 :i:ooo 


LDA 


•:;;773V:i rio 


3Y 


.;y 7 7-^1;. 3, Ml 


AUD30 


/' 77.5 ;;.5 111:^ 


5'1C3J-' 


■',7:76'^ 2000 


AUDO 


v; 7:77 V 5 17 7 


b-iC3K 


l6op:;-3i07 


ADD3X 


::10D'1.'P017 


COM 


ad02 .31 13 


ADD7X 


1003 047 1 


Ai-Oi 


4'bo'A: .70 1 


JMPPt4 


LOOS' ,0076 


SETil6 


1006': 7 77 3 


-A 


'roo7;ooi7 


COM 


■lOlOVlOoO 


STAi 


101 1:00.00 


.-',38 C IDELXI 


'i:.o.:i^ 001 1 


CLR 


■1013: 34 12 


ADU31-' 


ii'6w,:ooi7 


COK 


:i015::3;i \A 


ADU7Y 


: 1 01^,: 0^7 1 


Al-Oi 


: 1017; 7023 


jM1-'P+4 


i-G2o:. bo7 5 


SETilS 


• 102 1 ;:7:77 5 


, -2 


■W 022 --00 17 


COM 


MQ23: V06U 


5TAi 


Vl02^:;oooo 


?/3C C IDELYI 


:i'G:2S::P077 


SET! 17 


:ro26.:'377 7 


-4000 


■•■i-QSiTNreoo 


BbE 


a:Gi;3Q::.:i 1 1 


3B 


v:i,o3;i:xp-47o 


AZEi 


■ -1:03:2 7.177 


JMt-'3R 


■a 03 3: 50 -^3 


#3E STC3D 


;;i:03ii:/3Pll 


ADL)3B 


;:iP35::;02 4i 


ROLl 


:;;i03"6:;-50i 1 


.STC3B 


yrOS?:' 302/1 


ADD3C 


:vl04p.;02'^l 


HOLl 


;; 104l':'.:502 4 


i5TC3C 


:':;i 0^12 -1:020 


LDAi 


<;'-i;6^3;,.0000 


//3D C RESULT 


: 1044 02 41 


ROLl 


■■■.l-p:45 451 


Al-O 


,r;rd46. 70 b2' 


JMh'P + 4 


iVib/t7 IbOO 


bRO 


\' 10,50 ,0017 


17 


',^ia5i::7U33 


JJMJ"3E 


■'1052 001 1 


CLR 


■ •iC53,V5062 


S'IC3F 


■;i0b4 507 1 


STC3G 


^:^';i 5 5/001 1 


//3H CLR 



OF BSE 



I' CON r 

lUb6 rHJlo AUDIO 

lObV L>U7 6 STC3I 

1060 301 1 ADU3H 

106 1 1^20 LAMi 

1062 0000 //oK 

1063 4000 iiTCO 

1064 0/i72 L-Cb:i 
106b :3076 STC3I 

1066 OOI 1 CLH 

1067 302 4 AUU3C 

107 \?.'A0 LAMi 
107 1 0000 f/3G 

1072 ^000 STCO 

1073 0452 LiiE 

1074 201 b ADD15 
107:3 1 120 ADAi 

1076 OOOO iV31 

1077 0450 AiiE 

1 100 66 57 JMP7I 

1101 2 7:>3 AUU3W C+1 

1 1 02 11 40 ADM 

1 103 0017 17 

1 104 0450 AZE 

1 105 705b JM)^3H 

1106 7177' JM1"3K ,,;;;■-.: '::; ■;. 

1107 0000 ^/3\ 0000 iDESlRED -X :}:■] ■'^:'^r'/^:...y 

1110 0000 *3Y 0000 LUEiilREDyY:y- '■■:[: -i'::^':/:::.;'':^^^:^ 

1111 0000 iV3U 0000 C Y-bHIFT ^;^^■.;;; , V;: -^^^^^ 

1112 0000 ,i3f 0000 /y;-' ■:r^.- ■^■:'y- ^ :■%//■: y-; 

1113 OOpO f/7A 0000 [CURRENT X-; ;: ■::;^ 
' 1 1.14- P0pb'^7Y.:;0p00;C CURRENT Y 

11 1 5 0002 #7 A 2 C NUMBER OF lOOTHS OF INCH 

C IN UNIT STEP 

1116 0003 J/7b 3 [NUMBER OF UNIT STEPS EQUIVALENT 

C TO HORIZONTAL GRID POINT SPACING 
[ TO HORIZONTAL GRID POINT PSPACING 

1117 0000 f'/7E [ISOMETRIC LINE COUNTER^ INITIALLY 

[ ZERO 

1 120 0000 ri'7F [PRESENT HASE LINE X VALUE^ INITIALLY ZERO 

1121 0000 //7G [STARTING BLOCK NUMBER PXR HISTOGRAM 

1 122 0000 i-/7C [PEN POSITION 

[ + = UP 

L - = DOl';N- 

[ 

1 123 0000 *7J [MONITER BLOCK NUMBER COUNTER 

1124 O'OOO /,7K [VIEW INDICATOR' 

1125 0000 /•7L [MAX VALUE ATTAINED BY ANY 

L PLOTTED POINT 

[PEN 

[SUBROUTINES 
1 126 0056 f-'7U SET 16[PEN UP 
1 127 0000 ' 
1 130 1000 LDA 

1131 1 122 7C 

1 132 47 1 APOi 

1 133 6016 JMP16 1. 



P U'UN'i 

13 /I UU17 COM 

135 i3lL;:-a .STC7U 

136 102 LUAi 

137 0001 1 

lAO 5160 STC 7K+3 

141 7 157 JMi- 7K + 2 

Uj<i U056 /;7D ■St:T16Cr'EN DOWN 

143 UOOO 

144 1000 LDA 

1^5 ii;:i:^ 70 

14t, 045 1 Az-O 

147 6U16 JMJ^16 

150 0017 COM 

151 51t>fc: STC7C 

152 001 1 CLR 

153 5160 STC 7R+3 

154 7 157 JM^ 7W+2 

155 0056 //7K' Sb:T16Ci-EN REV. 

1 56 UOUO 

157 1020 LUAi 
16U 0000 

161 1660 HCOi 

162 OOUl 1 

163 10 40 STA 
16/1 1160 7K+3 

165 1120 ADAi 

166 0513 0/^H 13 

167 5170 STC P+1 
170 0500 Ot^K 

tPEN DELAY 

l'7 1 1020 )y7S LUAi 

172 4704 4704 

173 2 7 52 ADD 3V 

174 0^150 AZE 

175 7 173 JKJ" P-2 

176 60 16 JMh- 16 

LH E T U R N 

177 0000 //3R 

200 07 10 ,7 IF RDCu 

201 0270 01270 

202 6375 JMh'375 

[ 

C 

[REGISTER ASSIGNMENTS 
Cl'.ORK REGISTERS 

. 1A=1 
1B = 2 

10=3 :■ "-.:■■■■:''- 

LHOINTERS 

11^=4 LPOINTER TO SHADOW TABLE. . ■, : 
L ■' INITIAL valued: 1700 

10=5 ti^OINTER TO DATA BEING SCANNED .V, 

1K=6 [COUNTER FOR HI STOGRAM COMPLETION; 

1D=7 [BACKWARDS COUNTEfi: FOR REAR VI EW , ; 

1E=10 [- NO OF HSn"06RAt«;s: DESIRED: ;:;: I- 

ej160o • ■■■■'■■.■.■':'■ ■■■':■'■■'■■■■'■■:' v.v^:.'';---/. 



. 1 7 i.N'^uri 
i&i>o moo 

CbHAUOW TABLE ^ 1600-1777 



